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FOREWORD 


This report documents the CDC version of the SIMWEST computer programs devel- 
oped by Boeing Computer Services Company under NASA Contract DEN3-42, "An 
Expanded System Simulation Model for Solar Energy Storage". The SIMWEST codes 
were originally developed for simulation of wind energy storage systems. The 
current version of these codes also includes solar-photovoltaic energy systems 
modeling. This project was conducted under the spohsorship of the Division of 
Energy Storage Systems, DOE, under the direction of Dr. G. C. Chang, and was 
administered by the NASA-Lewis Research Center Thermal and Mechanical Storage 
Section with Mr. L. H. Gordon and Mr. R. H. Beach as Project Managers. 

This report is in two volumes. 

i. CDC User's Manual 
II. CDC Program Descriptions 

The Boeing principal investigator for this project was Dr. A. W. Warren. Major 
contributors in the development of SIMWEST were Dr. R. W. Edsinger, Dr. J. D. 
Burroughs, and Dr. Y. K. Chan. 
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1.0 INTRODUCTION 


Energy storage systems for the utilizatinn nf . 

j • unnzation of intermittent power sources havp 

received increased study over the nacf -fon -n 

r::: 

- -p-es. T. pu:po::vrs«T~ 

solar-photovoltaic energy system for a given applfc^\ilraTd to 'alir the" 
resulting system to be evaluated and verified through simulation. 

Which al ows these components to be put together In building block form Th! 
present library contains components for five types of energy storage systems 
They are pumped hydro, battery, thermal, flywheel, and pneumatic, he Li 

:error:::::t:r"" " "" - - - .00 and s 

The simulation program has proven to be effiripn+ 

parametric sti.rHpc t. u efficient and versatile for performing 

c 4 - ^ capability for simulating total wind/solar 

y ems containing any one or Combination of the above types of storage and at 
the same time has the flexibilitv and dpnfh . , storage and at 

meaningful parameter studtos ^ 


1.1 SIMWEST OVERVIEW 


SIMWEST consists of two basic programs, and a library of generation sf„ 

PrograT'"*"’ The first program, the Model Generation 

9 , IS a precompiler which generates computer models (in FORTRAN) of 

mplex energy generation/storage systems, from user specificattons Tng SIM- 

rary components. The second program utilizes the resulting computer 
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model to perform cost and power utilization analysis. It handles Input 
output integration of system dynamics, and Iterates to obtain convergence of 
imp icit variables. The combination of these two programs provides a powerful 
for analyzing alternate generation and storage system designs. 

organization of the SIHWEST program. In addl- 
t 0 to the two programs described above, there Is a third which performs file 
ma n enance. It Is used to Incorporate user supplied data for L subsystl 

exec L raXlThTT” " 

the control cards describing the desired analysis to be performed and the 
desired tabular and/or plotted output. 

IrlerdT r'"’ ® "“her of user 

oriented features which greatly enhance the value of the codes. Some of the 

more prominent features are shown In Table 1.1-1. These features and the 

supplemental components described In 1.2 enable the user to quickly build 

debug, simulate and interpret alternative system designs. 

1.2 SIMWEST LIBRARY 

The SIMWEST library Is listed in Table 1.2-1. It is made up of six types of 
components: environmental, generation, load, logical, storage and supplemen- 

users m Oder "■ - the 


F^rall Idtr V"ir cmena. 

irst. all models should contain sufficient detail to simulate all physical 

2t1veneL'‘’'s on system cost ef- 

fectiveness Second, the models should be designed to minimize computer time 

and required user specification. It Is assumed that a SIMWEST Simula Inmh 

mpicVp ir :r “"*• t- ^ -- ®--'® 

impact Po nt of view a simulation step size of between 15 minutes and one hour 
was established as a design goal. 
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COMPONENT 
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Figure 1.1-1 SIMWEST Program Organization 










Table 1 , 1-1 SIMWEST User Oriented Features 
model generation program 

• Simplified Component Connections 

• Availability of all Input Parameters for Connection 

• Fortran Insertion Capability Between Components 

• Line Printer Schematic of User's Model Provided 

• Automated Naming of Parameters and Variables 

• Built-in Diagnostic Capabilities 
SIMULATION PROGRAM 

• Free Field Data Inputs. Including Tables 

• Diagnostics on Data Inputs 

• Default Values Assigned to Unspecified Parameters 

• Optional Levels of Line Printer and Diagnostic Output 

• Multiple, Back-to-back Simulation Capability 

• Printer Plotter Output of Time Histories and Crossplots 
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Table 1.2-1 SIMWEST Library Components 


environmentai 


battery STQRAfiF 


WIND 

AMBIENT TEMP 
TMY WEATHER TAPE 

WIND POWER GENERATTOm 

TURBINE/GENERATOR 
WIND TURBINE 

FIXED RATIO TRANSMISSION 
AC GENERATOR 

SOLAR POWER GENERATION 

SOLAR ORIENTATION (TRACKING) 
FLAT PLATE COLLECTOR 
FOCUSING LENS COLLECTOR 
PHOTOVOLTAIC ARRAY 

UTILITY GENERATION 

UTILITY 

LOGIC 

POWER DIVIDER 
POWER ACCUMULATOR 
PRIORITY INTERRUPT 
SWITCHES 

LOAD 

ELECTRICAL LOAD 

thermal load 


WO INVERTER 
TP RECTIFIER 
EO BATTERY 

admittance 


iv 

RE 

BA 

AO 


FLYWHEEL STORAGE 
WP 

WT AC MOTOR 

GR VARIABLE RATIO TRANSMISSION 

GE flywheel/clutch 


HYDRO STORARF 

SO HYDRO PUMP 

PP HYDRO TURBINE 

FO HYDRO STORAGE 

PV , 

PNEUMATIC STORARF 


PU 

HT 

HS 


UT 


PP 

PA 

PI 

SW,SX 

SY.SZ 


COMPRESSOR 

turbine 

ADIABATIC HEAT EXCHANGER 
BURNER 

PNEUMATIC STORAGE 
THERMAL STfiRARF 
STORAGE VESSEL 
SUPPLEMENTAI 


LO 

TL 


SATURATION 

random number GENERATOR 

Test functions 
table lookups 
transfer functions 
arithmetic ELEMENTS: 
COST MONITOR 

histogram 

TIME CONVERSION 


SA 


RN 

AF 


FU.FV 

IT.LA.LL.TF 

ma.mb.mc 


CM 

HG 

TI 
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As a result of the above design criteria, many physical components, such as the 
electrical components, were modeled mainly in terms of power flow and steady 
state response. This level of detail is consistent with a 15 minute time step 
and with the concept that important transients are on the time scale of demand 
curves or weather patterns, i.e., an hour or more, rather than on the time 
scale of electric motor transients of a few seconds. If short time transients 
were to be modeled, additional detail would be required in the component models 
which would greatly increase the user's task of specifying the model. Further, 
the simulation time step would have to be reduced and computer runs would be 
much costlier. 

The environmental components listed in Table 1.2-1 simulate environmental con- 
ditions. In the present SIMWEST library a user can generate wind speed and 
ambient temperatures, or can use selected inputs from the recorded weather and 
insolation data on the Typical Meterological Year (TMY) tapes for one of 26 
U.S. locations. These variables are generally used as inputs to physical 
components. 

The generation components consist of wind generation, solar-photovoltaic and 
utility routines. The wind turbine-generation components are fairly simple 
models for computing the power output of a conventional, horizontal axis wind 
machine given basic machine parameters. The solar-photovoltaic component; are 
somewhat more sophisticated, especially in the collector thermal analysis, and 
have a number of modeling options which a user may employ, e.g., active or 
passive cooling. 

The storage components encompass such things as motors, generators, trans- 
missions, flywheels, etc. These components model actual physical hardware 
which might be used in a wind or solar energy system. The selection of the 
particular SIMWEST library set of storage components was based on the require- 
ment that it be capable of modeling the five types of energy storage systems 
mentioned previously: thermal, flywheel, battery, pumped hydro and pneumatic. 
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The load components in the SIMWEST library are used to simulate various types 
of power demand. They also monitor how well the system meets the simulated 
demand and compute the value of the energy delivered to the load. Like the 
environmental components, these components may be computed from actual mea- 
surement data or from randomly generated data based on user furnished load 
profiles. 


The library's logical components are the power dividers, power accumulators 
switches and priority interrupts. Although physical hardware or logic devices 
coulo be built to serve the function of the logical components, they are not 
meant to represent any particular existing hardware. Instead, they are ideal- 
ized components that allow the user flexibility in modeling a wide variety of 
system and control logic for operational evaluation of energy storage systems. 
In practice, the control function might be performed by a control room operator 
using a predefined control strategy or by use of a process computer. 

Finally, the supplemental components include such things as the tape read, the 
histogram and the cost monitor. These components serve to help the user run 
the simulation and analyze its results. 

1.2.1 Storage Subsystems 

Figures 1.2-1 through 1.2-5 give possible configurations of the five types of 
storage subsystems which can be modeled with the present SIMWEST library. For 
illustrative purposes the number of variables shown passed between components 
IS limited. A description of the variables being passed is given in Table 


A total energy system will generally be made up of elements from a number of 
different subsystems (see Figure 1.2-6). In addition, the SIMWEST program can 
be used for models which include networks of storage subsystems of the same 
type or a network of wind or solar generators. 
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Figure 1.2-1 Pneumatic Storage Subsystem 
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Fi'gure 1.2-3 Flywheel Storage 
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Figure 1.2-4 Battery Storage 
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Figure 1.2-5 Thermal Storage 

Table 1.2-2 

Partial List of Component Inputs and Outputs 


SYMBOLS 

P 

POWER 

RE 

POWER REQUEST 

MP 

MAXIMUM POWER 

RS 

ROTOR SPEED 

T 

TEMPERATURE 

TA 

AMBIENT TEMPERATURE 

M 

MASS FLOW RATE 

H 

RESERVOIR HEIGHT 

1|D 

THERMAL LOAD DELIVERED 

WV 

WIND VELOCITY 

GR 

GEAR RATIO 

EF 

efficiency 

INT 

INTERRUPT FLAG 

PR 

PRESSURE 

PS 

PRIORITY SEQUENCE 

WY 

WEEK OF YEAR 

OW 

DAY OF WEEK 

TD 

time of day 

SP 

SURPLUS POWER 
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^•2*2 Logic Components 

P^vided by the 

d V de d power accumulator and priority interrupt components. Both the 

used h 'th " P’-'P’-’'*!' The priority interrupt is 

cl::r ^ components to change the priority setting ot the divider 

The power divider has one input power port and four output power ports (not all 
u put ports need be used for a given simulation). The divider also has 
input request associated with each of its output ports. A power request 

output port.^ The user specifies priorities of either 0. 1, 2. 3 , or 4 to be 
associated with each of the output ports If thp inmii- 

reque ted of the port with highest priority (priority 1) then the excess power 
9 oes: to the port with the next priority. This process continues until either 
ell power is distributed or all requests of non-zero priority ports are met A 
por with zero (0) priority does not receive power. Such ports are inclld' t 
model backup or switch operated components. In these situations, the connected 
component would change the zero priority setting of the power divider by use of 

which°"^^ Two or more ports may be assigned the same priority i„ 

which case the user may specify weights to be associated with each port. Then 
here is not enough power available to satisfy all requests of equal prior- 
ty the power is divided between them in proportion to the user specified 


The power accumulator is similar to the divider except that instead of distri- 

Jow^froTf 

power four input ports and sends it out through a single output port. The 

power accumulator accepts power requests from the downstream component and 

a locates requests to each of its input ports in order to service the dol 
Stream component. 
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An example Illustration of the use of power dividers and power accumulators is 
given in Figure 1.2-6. It is seen that powef from the turbine/generator is 
distributed with highest priority (priority 1) going to the power accumulator 


that services load 1. Since the power accumulator servicing load 1 has its 
priority 1 input port connected to the power divider, it will try first to 
satisfy load 1 from the turbine/generator and then from the utility. If the 
pbwer divider satisfies load 1 and there is power left over, it will be used to 
satisfy the request from the battery. Finally, if the battery is full or if 
its charging rate is met, then the excess power goes to the flywheel. The 
battery also has a priority zero connection to the utility. If the battery 
remains in a discharge state for more than a specified amount of time, it can 
change the utility priority (from 0 to 1) to receive needed power. 


Also in Figure 1.2-6, we see that load 2 prefers to draw power from the 
flywheel before turning to the battery. This configuration tends to keep the 
flywheel as discharged as possible, using it primarily as a means to absorb 
large influxes of power. 


1.3 SIMWEST OUTPUT 

There are three basic forms of SIMWEST output to facilitate the analysis of 
wind and solar energy storage systems; line printer plots, histograms of system 
variables and time sequenced output of variable values. Each SIMWEST library 
component is associated with a number of output variables. Prior to simulating 
a given system the user may select any of these outputs for plotting or tabular 
output. For example, he may want to plot the energy of pneumatic storage as a 
function of time and/or as a function of temperature. If the user wants a time 
sequenced listing of all variable values, he may specify the time step between 
printouts. The listing of all variables has proven to be a useful tool in 
understanding the performance of the system under consideration and a valuable 
aid in validating the system design. 

SIMWEST also provides a special output which computes life cycle and levelized 
energy costs per kwh. This output is produced by the cost monitor component 
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POWER 

ACCUMULATOR 



Figure 1.2-6 Example of Power Divider and Accumulator Use 
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and is illustrated in Figure 1.3-1, The levelized energy costs are based on 
energy delivered to the loads during a simulation and forecasted to a full 
years' system operation. This output permits direct comparison of capital and 
energy costs for alternative system configurations, enabling a user to perform 
economic trade studies and system sizing. 

1.4 TESTING 

Reference [1] describes two simulation studies which were used to test the 
original SIMWEST program. Reference [6] describes the NASA-Lewis approved 
simulation studies for the expanded SIMWEST program. These studies provide an 
excellent test and illustration of the program's capability to model complex 
wind/solar energy systems. 

Prior to performing the simulation studies and throughout its development the 
SIMWEST program was systematically tested. First components were grouped into 
simple systems and simulations were performed. During these simulations sys- 
tem parameters were driven so as to force the individual components through 
every normal program path and to assure that all component outputs assume a 
wide range of values. The number of components and the number of ways they can 
be connected makes it impossible to exercise every combination. However, the 
subsystem groupings that were used were representative of the expected program 
usage. Sections 8 and 9 describe some of the test cases for the wind and solar- 
photovoltaic generation components. 


The test cases and simulation studies revealed that the code is reasonably 
efficient for system parameter studies. Even on very complex systems, such as 
represented by the NASA-Lewis test case, convergence of logic variables was 
quite rapid. Convergence generally took place in less than six iterations per 
simulation time step. As an example, the year simulations used in the NASA 
defined parameter study of Reference [1] took less than 420 CPU seconds on the 
CDC 6600. For comparison, the CPU time on the UNIVAC 1100/40 is approximately 
two to three times as great as that on the 6600, and CPU time on the Cyber 175 
IS a factor of two to three times smaller than that of the 6600. 
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SOLAR/UINO ENERGY STORAGE COST SUNNART 
20 YEAR LIFE CYCLE 


§ 


Figure 


VEARLY SYSTEM COSTS 


CAPITAL COST 
CINCLUOING FIXED 

CHARGES) 

526. t 

FIXED 0 ♦ H COST 


107. t 

OPERATING ♦ FUEL 

COST 

14. t 

TOTAL 


646. S 


energy delivered 


energy delivered 


7445. ,<UH 


energy COST PER KWH 


86.8 MILLS 


energy delivered 

fVALUE OF FUEL SAVED) 
ENERGY VALUE PER KUH 
COST PER VALUE DELIVERED 


372 S 

50.0 HILLS 
1.74 


LOAD FACTOR 


percent OF LOAD SUPPLIED 
by total SOLAR SYSTEM 

percent of loao supplied 
by utility 

percent of solar energy 

SURPLUSEO 

COST TO MEET LOAD 
fSOLAR ♦ UTILITY) 


100.0 

0.0 

0.0 

86.8 HILLS 


1.3-1 Cost Monitor Output for Fresnel Lens Itodei 
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1*5 PROGRAM USAGE 


thoroughly thlnh through and be fa.iHar wuTtl ^ 

ho wants to simulate. Component models if not Ti?’" 

perform In unexpected ways. If the systems 1 • specified, may 

resulting system may be s1gn1fL„t,y olt Vk ," " 

tolly utilized. The t t case 1, b w "" *=0 

process of slaing and o c d ustmen^T 

tives. ® edjustment to satisfy system performance objec- 

It::' * *r “• ••«... 

separately develop and test suhsvst ^ oomplex system, n ls best to 

problems or unexpected results to be^lsT^r 

Introduction of the more complex character Is^tl Prior to the 

system. associated with the total 

iTdertrryry:::f;r;o7cr — - - - 

and for defining speclal outp s 'T‘ 

For example, fortran statements enal the 27: 7““ *“ 

study data by computing component Input parameters f 

parameters. The use of Fortran statement • aj'stem 

early in SIMWEST applications. ^ simple and should be encouraged 

Computer simulation costs may be rninimi.oH k 

run time and simulation accuracy. Run ti ate tradeoffs between 

integration step size the total • directly affected by the 

:>ize, tne total simulation lennfh anw *.u j "= 

r “r;r,r ;r ■ 

- .» ... .. 2,r“ 
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solved by iteration through the model Tf a mAHoi 

conve.e„ee. t.n U .a. .e use., t'o lL,r;:eire7,:rr t 

order to modify or simplify that portion of the system model It ha h 
generally found In the simulation studies that r ! ' ^ 

simulations Is adequate to pr^d ct loin . “ 

studies and design optimization P ! P®'‘f»™snce for system trade 

mended for this purposl 

z:::::: z:zzz ^ 

performance statisticrriiir:::!;;;!:: ^riidn'T™^- 

better visibility of the system perfonnance, this helps ,l„rr h""® 
size. The twelve monthly simulations can be submitted aO a s n , 

-suits Of a qlven month acting as Initial condUlons fol the n 0 ItT' ^ 

Zl:lT onO moot: 
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2.0 MODEL GENERATION 


The>Model Generation program design is based on the assumption that the system 
analyst will begin by constructing a schematic diagram of the system he wishes 
to analyze. This schematic will be comprised primarily of standard SIMWEST 
library components. Standard library components include wind models, AC in- 
duction motors, inverters, rectifiers, etc. If a particular system cannot be 
modeled with existing standard components, the analyst may construct his model 
by including appropriate FORTRAN statements in his system description. 

All interconnections between standard components are accomplished by the Model 
Generation program. The analyst merely specifies each standard component in 
the schematic diagram and all of the components that provide inputs to that 
component. The Model Generation program then generates names and the proper 
interconnections between the specified components. This is accomplished by 
matching the input quantities required by each standard component to the output 
quantities of the specified input components. 

After processing the complete system model description, the Model Generation 
program generates a schematic diagram of the model showing the interconnec- 
tions between standard components and the quantities such as power, pressure, 
temperature, mass flow rates, etc,, that pass through each interconnection! 
This schematic is produced on the lineprinter to provide a rapid graphic check 
on the program's interpretation of the model description. 

In addition, the program produces a list of input data that will be required by 
each component to complete the model description. Both the scalar parameters 
and tabular data required for the analysis are included in this list. The 
program assumes that any quantity not supplied by another component will be 
supplied as a fixed parameter by the analyst. Thus requests for non-parameter 
items in the input data list will reveal any connection that was omitted from 
the system model description. 
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2.1 MODEL DESCRIPTION 


The Model Generation program Is a precompiler program which accepts model 
description instructions and from these instructions generates a FORTRAN model 
of a system. These instructions, referred to as "program commands," are made 
up of one or more words. In addition, the system model description contains 
numeric values, standard component names, and standard input and output 
quantity names. 

The Model Generation commands may be best introduced with a simple example of 
their use to describe a wind turbine system. Figure 2.1-1 shows an analyst's 
schematic of a wind turbine model that has been constructed using standard 
components on a SIMWEST schematic form. The standard component names used in 
this sample are: 

WD - Wind Model 

WT - Wind Turbine 

TI - Time Conversion 

HG - Histogram Generator 

GR - Fixed Ratio Transmission 

LO - Electrical Load 

GE - AC Induction Generator 

The SIMWEST description of this model would be as follows: 

Example 2.1 


MODEL DESCRIPTION 

WIND TURBINE TEST CASE 

L0CATI0N=15 

TI 


L0CATI0N=11 

WO 

INPUTS=TI 

L0CATI0N=31 

WT 

INPUTS=WD 

L0CATI0N=35 

GR 

INPUTS=WT 
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Example 2.1 (Continued) 


L0CATI0N=51 
L0CATI0N=39 
L0CATI0N=19 
END OF MODEL 
PRINT 


HG INPUTS=WT(PsFIN) 

! GE INPUTS=GR 

LO INPUTS=GE,TI 


fhe model description consists of a statement as to ^he locatinn 

ponent in the schematic and a list of all mmnn / ® each com. 

*ua+. ' components that provide innut-c 

that component. The location of the component in th. k * 

;;ne pcinten .awn schematic of the moriVaVllI: 

WT p /e -ch is pels' < 

WT. P2 GE, P2 GR) are shown on the various connecting lines. 


2«1»1 Phrases and Delimiters 


:: 'rrr.“/r,rr t“" • 


Table 2.1-1 


Model Generation Program Language Delimiters 


= equal sign 
, comma 

( left parenthesis 
) >"ight parenthesis 
three or more blanks 
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• ^ ~ — — 

• i»0 * * * 

I * ’ ijj I 

*•••*•••** TD rx * * 

I ay^TI ********** 


n 

1 

_I_mV24|0 

V 


• 

• *T 


«T ********** 

-fitt— * •■■ 

* 6R » 


;.- ...! ..... -I—” «, 


T| 

~~ " 0 *i— T-I -*****«*«*.*. 

TO TI • * 

* » 

**•»»•***♦ 

~~ ~ — * 

Hp^tte I 

■ Pi fct I 

** Tj i~ ■ 

I 

~ ■ 1 — . 

HP2GH I 

tf'HGW •*•••*•*** 

; . ■ j te-GH- — •_ * 

■ SSXX>a*S9KS9S»»— . * Gt • 


********** (»SIG« 
I 


********** MS GE 


I P 2 XT 

-V 


‘ — tfSL i 

‘ 51 < 

► i 


“figure 2.1-2 lineprinter^-drawn wind turbine model schematic 


2.1.2 Command Phrases 


The Model Generation command phrases are described in this section in a logical 
sequence similar to that in which they appear in system model descriptions. 

MODEL DESCRIPTION 

4 

The MODEL DESCRIPTION command >phrase indicates the start of a new system model. 
This phrase may be followed, (on the same card), by a title of up to 60 
characters. This title will be used to identify various program output schem- 
atics, lists and program listings. In Example 2.1, the title was "Wind Turbine 
Test Case." 


LOCATION 

The LOCATION command phrase indicates the start of the description of a new 
component in the system model. This command must be followed by a numeric 
value phrase that specifies the location of the new component on the model 
schematic. Thus in the example of Figure 2.1-1, the location number of the 
w-jnd model WD was 11 and the wind turbine WT was 31, etc. To be a valid 
component location, the last two digits of this number must comprise a number 
between 1 and 80. The hundreds column is used to specify additional pages as 
needed for the schematic. Thus the numbers 

1, 13, 51, 80 

would be valid location numbers for components on the first page, (PAGE 0), of 
a system schematic. These same locations on the second page of the schematic, 
(PAGE 1), would be: 

101, 113, 151, 180 

I 

The location number phrase is followed by the name of the component at that 
location. Component names are discussed in Section 2.2. 
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A LOCATION statement should be given only once for each 
once a LOCATION statement is started for a component the 
O all inputs to that component should be given. 


component. That Is, 
complete description 


INPUTS 


The INPUTS command phrase indicates that • 

names of the components that provide inputs to the co’"^ 
location. Thus in the example of F g \ 17?"* f 

;-^lch receives inputs from generated OF a^ n Is" “ 


L0CATI0N=19 LO inputs=ge,ti 

« r;i” '""r *’ ~ ™- 

system component may be included in each compo7elt^esliTttn.'“ 

For some system components there are mui+inics • a. 

r. r"F - 

connection could have been more. explicitly described as: 

L0CATI0N=35 GR INPUTS=WT(2,1) 

This says that port 2 of the wind turbine (WT) drives port 1 of the + 

r r." i 

«T. and the RS input of WT is connected up to RSIGR bS thl ® 

the port designations are omitted, as they were in Exalole p 7 

will .e made to the first available input port startin; with te":::::"::: 
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number. Once a connection has been made to an input port, those input quanti- 
ties that are connected are no longer available for further connections. An 
exception is made when the physical quantities of both input and output are 
specified. This method of specifying connections is described in the following 
paragraphs. 

For certain components, such as the arithmetic elements, the inputs to the 
component can be any physical quantity in the model. For these components, the 
input component names must be supplemented by the name of the particular output 
quantity that is to provide the input. 

As an example, consider a component that represents a linear first order lag 
transfer function. If the transfer function component's input, FIN, was to be 
the rotor speed of the wind turbine WT in Example 2.1, then the statement 

L0CATI0N=53 LA INPUTS=WT(RS=FIN) 

would indicate to the program that of the outputs of the wind turbine, the 
output rotor speed, RS, was to be used as the input, FIN, to the transfer 
function, LA. 

To summarize, there are three levels of connection specification: 

1. Default (only component names are specified) 

Connections are made between unconnected inputs and outputs for the 
first ports for which a match of physical quantity names occurs. 

2. Ports Specified 

Connections are made between matching physical quantities for all uncon- 
nected inputs and outputs of the specified ports. 
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3. Physical Quantities Specified 

Connections are made between ^those quantities soecifiPH , Previous 

connexions can be overridden, providing the three character physical 

quantity name of the previously connected variable is used. For example 
the phrase ’ 


L0CATI0N=19 LO INPUTS=GE,GE(P,2=MP2) 

will first replace the input parameter MPILO by MP2GE and then override the 
connection MP2GE and substitute P2 GE as the LO input. 

Note: The LIST STANDARD COMPONENTS command produces a listing of all input and 
output physical quantity names and port numbers. When specifying individual 
physical connections this listing may be used to differentiate physical quan- 
tity names and port numbers. For example, (P,2=...) denotes connection of a 

physical quantity P at port 2, whereas (P2=...) denotes connection of physical 
quantity P2 without regard to port number. 


END OF MODEL 

The END OF MODEL comnand phrase indicates that the model description has been 
completed and that the Model Generation program should proceed with the genera- 
tfon of the model subroutines. 


PRINT 


The PRINT command phrase causes the program to: (I) draw a schematic of the 
system model as shown in Figure 2.1-2; (2) print a list of input requirements 
or e model; and (3) print a source listing of the FORTRAN subroutines that 
were generated for the model. The Model Generation program then terminates. 
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PUNCH 


The PUNCH comnand phrase has the same effect as the PRINT conmand, but in 
addition a FORTRAN source deck of the system model is produced. 

FORTRAN STATEMENTS 

The FORTRAN STATEMENTS command phrase allows the system analyst to supplement 
the library components with FORTRAN statements. Using this feature, the 
analyst can introduce his own program logic, DO loops, etc., as necessary to 
model any system feature not obtainable with standard library components. 

One of the common uses of the FORTRAN STATEMENTS command is to input large 
tables into the model. Two function subprograms TBLUl and TBLU2 are provided 
for this use. They perform linear interpolation from one and two dimension 
tables, respectively. TBLUl is in general called in the form 

F = TBLU1(X,TAB(4),TAB(4+N),I,+N), 

where F is the interpolated value at the desired point X, TAB is a one dimen- 
sion table with dimension N, TAB(4) is the independent variable and TAB (4+N) 
is the dependent variable list, 1=0 for equal spaced data, I = 1 for unequal 
spaced data, and the dimension N is specified as the last variable if linear 
extrapolation is desired, and -N is specified if truncation is desired outside 
the table limits. Similarly, TBLU2 is in general called using the form 

F = TBLU2(X,Y,TAB(4+M),TAB(4),TAB{4+M+N),IX,IY,+N,+M,N,M), 

where X and Y are the values of the primary and secondary independent varia- 
bles, N and M are the dimensions of the primary and secondary variable arrays, 
IX and lY are indicators for equal spaced or unequal spaced data as above, and 
the sign convention on N and M is positive for extrapolation, negative for 
truncation. 
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The FORTRAN STATEMENTS conmand would normally be used only when = 

the system cannot be modeled with ^ ° ^ portion of 

T srr;,? " 

variables, that are normally accomplished by the Modeninerr 

return for these added tasks the analyst ■ °‘'®’ P'-Wam. In 

flexibility in forming details’ of h- ! 8<<'^''t1onal 

as comon blocks must precede the firir ™ such 

code Should come after a^Cne:rhas L~ rr ^ 

work properly. ^ iteration logic to 


ADD STATES 

add variables 

ADD PARAMETERS 
ADD TABLES 

sUteT va”'s"TarlXV"artaMe^^^ =■''' 

ments. to the system «,te, Quantities L t 

ccands cannot be accessed or -nipulated^/^ltS’progl”:^ 

Before discussing these co-ands. a few definitions of terms are in order. 


States: 


States are those quantities in the system model that 
are described by first order differential equations. 
The state yariables are the result of integrating 
set of f,rst order differential equations that 
comprise the dynamic system model. The number of 
s ates equals the order of the system model. The 
states are dynamic, time yarying quantities during 
most simulation studies. The initial yalues 
(i-Ttial conditions), of the states must be input as 
part of the system model description. Deriyatiyes 
Of the state yariables are stored in an array XDOT 
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Variables: 


Parameters: 


where XDOT(I) is the derivative of the Ith state 
variable stored in the model (EQMO). 

Variables are all other dynamic time varying 
quantities in the system model that are not states. 
In general, variables are related to states by 
algebraic relationships. 

Parameters are constant scalar quantities in the 
system model. Parameters can be manipulated by the 
analyst to alter the system model. All parameter 

values* should be input as part of the system model 
description. 


constant nonscalar quantities in the 
system model. Tables are used to represent 
algebraic functional relationships with one or two 
independent variables. All table values must be 
input as part of the system model description. 

The format for the ADO commands is that the command is followed by one or more 

phrases that contain the names of the states, variables, parameters, or tables. 

n addition to each table name, a number, specifying the amount of storage to 

e allocated for that table must be given. This number is positive if the 

table IS two dimensional and negative if one dimensional, with absolute value 
determined by the formula: 


where 


N = 3 + I + J + d 


N = The total storage required by the table, in words. 


♦ For certain components, default values are provided for 


some parameters. 
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I ' The number of data points in the primary 
independent variable table. 


J = The number of data points in the secondary 
independent variable table. (J=0 if there is only 
one independent variable.) 


D = The number of data points in the dependent 
variable table. (D=I if there is only one 
independent variable. D=I*J if there are two 

independent variables.) 


The following example from reference [l] 
STATEMENTS: 


illustrates the use of FORTRAN 


Example 2.2 


MODEL DESCRIPTION PARAMETER STUDY 


ADD TABLES = WIND, 802 
LOCATION =41 TI 

FORTRAN STATEMENTS 
C READ WIND VELOCITY DATA 

WVIWD = TBLU2(TD TI,DY TI.WIND(35) ,WIND{4) , 
1 WIND(59), 0,0,24, -31, 24,31) 

LOCATION - 71 WD INPUTS = TI 


In this model, Fortran is used to input wind velocity data. The wind table 
enoted MIND, consists of up to 31 days of hourly wind speeds. Hence, ai 
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described previously, the total storage required is 3+24+31+24*31=802. The 
Fortran is inserted after time of day and day of the year are computed in TI. 
In this case, N=24, M=31, the data is equal spaced, and extrapolation is used 
to provide velocity data over each 24 hour period. The variable WVIWD is the 
name of the wind input to WD generated by the precompiler. Fortran insertion 
in the model ends when the L0CATI0N=71 ... command is read and a call to the 
subroutine WD is then generated. 

Note : When interpolation of one dimension, equi-spaced data is desired, it is 
possible to reduce the table dimension and table input by using the following 
alternative procedure: 

(1) Set the table dimension for the ADD TABLES coimand to 6+N, where N is 
the length of the dependent variable data. 

(2) The call sequence for linear interpolation is changed to 

F = TBLU1(X,TAB(4),TAB{6),0,+N), 

where F is the interpolated value at the desired point X and TAB is 
the one dimension table name specified in the ADD TABLES command. 

(3) The tabular data input to the simulation program as specified in 
3.1-2 is modified such that only the first two values of the indepen- 
dent variable table are specified, i.e., the data cards for the table 
TAB may be input as follows: 

Card 1 TABLE, TAB = N1 

Card 2 XI, X2 

Card 3 Yl, Y2, ... YN 

where N1 = N/2 + 1 if N1 is even and N1 = (N+3)/2 if N is odd, XI, X2 
are the first two values of the independent variable table, and 
Yl, ... N are the values of the dependent variable table. 
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LIST STANDARD COMPONENTS 


The LIST STANDARD COMPONENTS coinnand phrase causes the program to print a list 
of all standard components. For each standard component, lists of inputs, 
outputs, and tables for that component are provided. For each input, the 
physical quantity name and port number is given. For each output, the physical 
quantity name, port number, and the letter S, if the quantity is a state is 
given. For each table, the table name, the number of independent variables and 
the maximum amount of storage allowed is provided. This conmand is usually 
given as the first command of a model description and will result in a list of 
all standard component information as the first output from the Model Genera- 
tion program. 

2.2 NAMING CONVENTION 

All standard components are given names consisting of two characters, the first 
of which is alphabetical. Thus we have WT for wind turbine, GE for generator, 
WD for wind model, etc. Where multiple components of the same type are 
required, the second character is used to distinguish between the different 
models of the same basic component type. A specific component in a model can 
be distinguished from other components of the same type by adding one more 
character to the standard component name. This character is usually numeric 
but can also be alphabetical or blank. Thus a given model can contain up to 37 
different components of the same standard component type. For example, a model 
with ten different wind turbines might have these components designated as: 

WT1,WT2,WT3, ,WT8,WT9,WTA 

2.2.1 Variable, Parameter, and Table Naming Conventions 

All of the input, output, and tabular quantities required by each component in 
a system model must have unique FORTRAN names. These quantities are given 
names consisting of up to three characters that describe the physical quantity 
they represent. 


BCS 40262-1 


33 



Since a single component may have several inputs or outputs of the same physi- 
cal quantity, a port number may be added to the second or third character of 
the physical quantity name to prevent duplication. 

The physical quantities that are outputs of a given component are identified by 
catenating the three character name of that component to the three character 
name of the physical quantity. In this way, unique six character FORTRAN names 
are generated for all output quantities of the system model. 

Input quantities to a component that are driven by another component carry the 
names of the component that drives them. Any inputs that are not driven by 
other model components are assumed to be parameters and are assigned the name 
of the component for which they are an input. 

If a component should require tabular data as an input, unique table names are 
generated just as scalar input quantity names by adding the component name to 
the table name. A pictorial representation of the character assignment in 
component, variable, and table names is given in Figure 2.2-1. 

2.3 MODEL SCHEMATIC 

The Model Generation program produces an information flow or schematic diagram 
of the system being modeled. This schematic is crude but is inexpensive and 
does not have the flow delays associated with more elaborate plotting methods. 
Its purpose is to provide a means of rapidly locating errors in the model 
description. 

In order to construct a schematic diagram in an efficient manner with a reason- 
able size program, it was necessary to establish some simple rules for symbol 
generation, component connection paths, and labeling. If these rules are kept 
in mind when laying-out a schematic for the system, the SIMWEST produced 
schematic will match that developed by the analyst. If the rules are violated, 
the SIMWEST schematic should still be correct, but may contain some unusual 
component connection paths and some labeling information may be overwritten. 
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2.3.1 Standard Schematic Form 


The SIMWEST schematic diagrams are produced on a standard 11'' by 14" line- 
printer page with 80 component locations per page. A standard form containing 
only the location numbers can be obtained by executing the Model Generation 
program with the single program command, PRINT. This form can then be repro- 
duced and the copies used as forms for drawing system model schematics. 

2.3.2 Input Quantity Labeling 

The names of the physical quantities that are input to one component from 
another component are listed adjacent to the downstream component symbol. 
These labels are placed near the connecting line that joins the two components. 
Sinqe these names are composed of the physical quantity name and the name of 
the component that generates the information, the source of the input is 
evident fron the name itself. Parameter and tabular inputs to a component are 

not shown on the schematic. These constant inputs are described in the Input 
Requirements List. 

2*3.3 Component Connection Paths 

In order to keep the requirements of the SIMWEST schematic subroutine small, it 
was necessary to limit the types of connecting paths between components to a 
few basic routes. These paths are shown in Figure 2.3-1. Connections between 
components on the same horizontal or vertical line are straightforward. How- 
ever, connections between components that do not share a horizontal or vertical 
line require a two segment path. These paths have been arbitrarily chosen to 
follow a clockwise route. It is therefore advisable that components that are 
on diagonal locations be placed in a clockwise sequence. If counter-clockwise 
flow between components is necessary, it can be accomnodated by placing the 
components on the same horizontal or vertical lines. 
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The SIMWEST schematic subroutine makes no attempt to go around components that 

get in the way of a connection path. Such components are "run-over" by the 
connecting line. 

2.3.4 Additional Pages 

The SIMWEST schematic diagram may be broken into as many pages as are nec- 
essary. No attempt is made to draw connecting paths between components located 
on different pages. It is therefore advisable to minimize the number of con- 
necting paths between pages. This can usually be done by grouping components 
with many interconnections on the same page and placing page boundaries between 
such groups of components. 

2»3.5 Guidelines for Schematic Layout 

The following guidelines may help in creating schematic layouts that can be 
duplicated by the SIMWEST program. 

1. Try to place connected components on the same horizontal or vertical line. 

2. Avoid placing components on adjacent location points. 

3. Place diagonal components so that flow is clockwise. 

4. Group components to minimize flow paths between pages. 

2.4 WARNING MESSAGES 

One or more of the following warning messages will occur if the program is 
unable to interpret a portion of the model description or encounters problems 
in assembling the system model. These messages will be preceded by ***• 
WARNING *** or *** NOTICE ***. The symbols xxx and zzz are used to indicate 
phrases from the model description that are included as part of the warning 
message. The following messages are listed in alphabetical order: 
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1. CAN'T IDENTIFY xxx AS A STANDARD 


COMPONENT 


de t,f,ed as a conmand or standard component. This message will often 
follow other warning messages as the 
interpret the given phrase. 


program makes successive attempts to 


2. CAN'T IDENTIFY xxx AS A VALID INPUT COMPONENT TO 


22Z 


The component xxx cannot be found in thP lict n-f 

^ 'uurm in xne list of components for the 

current system model. 

3. CAN'T LOCATE xxx AS AN INPUT COMPONENT TO LOCATION n 

This message indicates that the component xxx, which provides inputs to 
ocat,on n ,n the schematic, has not been assigned a location number. 
C e L for a m,ss,ng LOCATION statement or misspelling of the component 


4. COMPONENT xxx DEFINITION WASN'T COMPLETED BEFORE STARTING 
OF COMPONENT 2 zz 


THE DEFINITION 


The command INPUTS was not given between the component names xxx and zzx. 
Check for proper spelling of INPUTS and a valid delimiter after the phrase 


5. COMPONENT xxx HAS ALREADY BEEN DEFINED 

The component xxx was defined in a previous LOCATION statement. 

6. LOCATION NO. xxx FOR COMPONENT zzz HAS LAST TWO DIGITS OUTSIDE THF 

ciiS ™ 'N 5“™TIC FOR THIS 
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This message will occur at the end of the model description for a 
component zzz which has an invalid location number. The system model may 
still be valid but the schematic will not contain this component. 

7. NO XXX OUTPUTS MATCH UNSATISFIED zzz INPUTS 

Check that it was intended to drive component zzz with component xxx or 
that the inputs to zzz have been previously satisfied by other component 
connections. 

8. TABLE NAME xxx MUST BE FOLLOWED BY A NUMERIC DIMENSION RATHER THAN zzz 

When using the ADD TABLES command, it is necessary to provide the maximum 
amount of storage to be allocated for the table as well as the table name. 
This storage value must be a numeric quantity. 

9. THE FOLLOWING COMPONENTS FORM AN IMPICIT LOOP, xxx, zzz, ..... 

Implicit loops can often be corrected by inserting a component with a 
state variable as its output, e.g., a simple linear lag, LA. All models 
containing FORTRAN STATEMENTS will receive this warning. 

10. THE SEQUENCE OF THE FOLLOWING COMPONENTS HAS BEEN ALTERED TO FORM AN 
EXPLICIT MODEL, xxx, zzz, ... 

The model component sequence as given contained implicit equations. By 
altering the component sequence it was possible to form an explicit model. 

11. xxx IS NOT A VALID INPUT QUANTITY OR PORT DESIGNATION FOR COMPONENT zzz 

The phrase xxx cannot be located as one of the input quantities or input 
ports of the component zzz. No connections will occur. Check the list of 
standard components for the proper spelling or port designations for this 
component. 
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12. XXX IS NOT A VALID LOCATION NUMBER 

The LOCATION command must be followed by a numeric location number, 

13. XXX IS NOT A VALID PORT DESIGNATION FOR INPUT COMPONENT zz 2 . ERRONEOUS 
CONNECTIONS MAY OCCUR. 

The phrase xxx cannot be located as a valid input port for the component 
zzz. Connections will be attempted using the upstream output port that 
was identified. 

2.5 MODEL GENERATION LIMITATIONS 

Certain limitations exist in the Model Generation program due to array dimen- 
sions within the program. For most applications these limits should not be 
encountered. However, if they should be encountered they can usually be 
extended at the expense of larger core requirements to execute the program. 
The following table describes these limitations: 


Limitation Descr iption Maximum Value 


Standard components in library 150 
Components per model 200 
States per model 200 
Inputs per any standard component 50 
Outputs per any standard component 50 
Tables per any standard component 15 
Ports per any standard component 10 
Tables per model lOo 
Table dimension (words) 960 
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3.0 SIMULATION PROGRAM 

Once a model has been generated as described in Section 2.0, the user must 
describe the simulation he wishes to perform. This involves specifying the 
various parameters detailing the model components and setting the model ini- 
tial conditions. It involves defining input data tables and the type and 
quantities of printed output, both tabular and plotted. The user must also 
specify the number of iterations he wishes to perform at each time step and the 
maximum number of component diagnostics. This section describes the commands 
for specifying the simulation and gives some example output. 

3.1 MODEL INPUT DATA 

A dynamic system model requires that the values of model parameters, tables and 
initial conditions, be provided to complete the model description. Sections 
3.1.1, 3.1.2 and 3.2 describe the methods used to specify parameter values, 
tables, and initial conditions. 

3.1.1 Scalar Data 

PARAMETER VALUES (Default values = .99999) 

This program command allows the numeric values of parameters to be loaded into 
the system model. The PARAMETER VALUES command is followed by one or more 
parameter names followed by a numeric value. Each name and its value are 
separated by one of the standard delimiter symbols. This command is used to 
specify the values of all system model parameters at the beginning of an 
analysis. It may also be used at any point between analyses to modify the 
value of one or more model parameters. A default value of .99999 is provided 
by the Model Generation program for all parameters not so specified. 


PRECEDING PAGE BLANK NOT FILMED 
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Example 3.1-1 

PARAMETER VALUES = CYCLES = 6.01, TO TI = 0, EW WP = .2, 

CR CM = 15, LE CM = 30, MOEHS = 4.E5 

3.1.2 Tabular Data 

If tabular data is required by the system model, it should be loaded before any 
of the simulation commands described in Section 3.4 are issued. Tables may be 
modified between analyses by loading new values. The tables required by a 
SIMWEST generated model are specified in the Input Requirements List. These 
tables may have either one or two independent variables. All data items are in 
a free field format with each item separated by one of the standard delimiters: 
comma [,], equal sign [=], left or right parenthesis [()], or three or more 
consecutive blank spaces. The data iteiM required for each table are placed on 

cards as follows: 

Card 1 TABLE table name NX NZ 
Card 2* Z table values 

Card 3* X table values 

Card 4* Y table values 

where: Table Name - The six character table name generated by the Model 

Generation program. 

NX - The number of points in the primary independent vari- 

able table. 

NZ** - The number of points in the secondary independent 

variable table. 

Z table ** - Table of NZ secondary independent variable values. 

X table - Table of NX independent table values. 

Y table - 1 or NZ tables of NX dependent variable values. 

* As many cards as required may be used. Each table must start with a new card 
and NZ, NX, and NX*NZ points must be given per table. 

** These items are omitted for tables with one independent variable. 
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A copy of all tabular input data is printed as it is interpreted from data 

cards. The following example shows the data cards for a one and a two indepen- 
dent variable table. 

Example 3.1-2 


Card 1 

TABLE, TABONE, 10 

Card 2 

1. 2, 3, 4, 5, 6, 7, 8, 9, 10 

Card 3 

11, 12, 13, 14, 15, 16, 17, 18, 19, 110 

Card 4 

TABLE, TABTWO, 5, 4 

Card 5 

10.3, 20.4, 30.5, 40.6 

Card 6 

1, 2, 3, 4, 5 

Card 7 

11, 12, 13, 14, 15 

Card 8 

21. 22, 23, 24, 25 

Card 9 

31, 32, 33, 34, 35 

Card 10 

41, 42, 43, 44, 45 


The printout of these tables would be: 

TABLE TABONE 

PRIMARY INDEPENDENT VARIABLE TABLE 

1.000 2.000 3.000 4.000 5.000 6.000 7.000 8.000 9.000 10.00 

DEPENDENT VARIABLE TABLE 

11.00 12.00 13.00 14.00 15.00 16.00 17.00 18.00 19.00 110.00 

TABLE TABTWO 

SECONDARY INDEPENDENT VARIABLE TABLE 


10.30 

20.40 

30.50 

40.60 



PRIMARY INDEPENDENT VARIABLE TABLE 


1.000 

2.000 

3.000 

4.000 

5.000 



DEPENDENT VARIABLE TABLE 


11.00 

12.00 

13.00 

14.00 

15.00 

21.00 

22.00 

23.00 

24.00 

25.00 

31.00 

32.00 

33.00 

34.00 

35.00 

41.00 

42.00 

43.00 

44.00 

45.00 
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3.2 INITIAL CONDITION, ERROR, AND INTEGRATION CONTROLS 

INITIAL CONDITIONS (Default value = 0) 

ERROR CONTROLS (Default value = 0.1) 

INT CONTROLS (Default value = 1.0) 

These program commands may be used to specify state variable initial condition 
values, integrator error controls, and integrator status, (either active (=1) 
or frozen (=0)). Default values are furnished by the simulation program. 
However, it. is strongly recommended that values appropriate to the particular 
system model be furnished for the initial conditions and error controls. 

Each of these commands is followed by phrases of the form of a state name 
followed by a numeric value. 

Example 3.2-1: 

INITIAL CONDITIONS = MA HS = 1.6E6, E TS = 600, VDELO =0, 

ERROR CONTROLS = MA HS = 10 

INT CONTROLS = MA HS = 0, E TS - 1, VDELO =1, 

ALL STATES (Default Condition) 

NO STATES 

These program commands may be used to activate or freeze all system integra- 
tors. These commands are normally used together with the INT CONTROLS command 
to specify the desired integrator configuration. 
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3.3 INITIAL CONDITION STORAGE COMMANDS 

XIC-X 

XIC-XICl 

XIC-XIC2 

XIC-XIC3 

XICl-XIC 

XIC2-XIC 

XIC3-XIC 

These program commands are used to transfer data from the current state vector, 
X. to the innial condition vector. XIC, and between the XIC vector and three 
auxiliary initial condition vectors XICI, XIC2, XIC3. 

Example 3.3-1 

XICl-XIC, XIC-X, XIC2-XIC 


The^three program commands shown above would take the current operating point 
(initial condition vector) and store it in vector XICI; then transfer the 
current state, X, into XIC; and then store that value of XIC in XIC2. 

3.4 SIMULATION COMMANDS 


SIMULATE 


This program command initiates simulation operation, 
command are the program values: 


Associated with this 


TINC 
TMAX 
INT MODE 
OUTRATE 
PRATE 

PRINT CONTROL 


time increment, hours 

duration of the simulation run, hours 

integration mode control 

output rate 

print rate 

print control variable 


Default Values : 
0.1 
1.0 
3 
1 
1 
0 
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These program conm,ands specify the integration time increment, duration of 
simulation run. the integration mode, the simulation output rate, the printing 
rate, and the quantity of printing, at each point in time. These quantities 
Should be specified before the first issuance of the SIMULATE command. 

The Time increment. TINC. provides the integrator time step size, in hours, for 

avaijrbrr’"' ^e 

available for printing or plotting. The default value for TINC is.O.I. 

The duration of a simulation calculation in hours, is specified by the THAX 
parameter. The default value of TMAX is 1. 

I?oVl!rhTr T" ^ntegra- 

methods to be selected according to the values given below. The default 
value of INT MODE is 3. aerauit 


INT MODE 
1 
2 
3 


Integration Method Selection 
Method 

Variable Step, Variable Order Gear 
Variable Step, 4th Order Runge-Kutta 
Fixed Step Euler (2nd order) 


The error controls specified in ’hPrtinn ■? 9 • 

for INT MODE = 3. determines the system step except 


The output rate parameter. OUTRATE. determines the sampling rate at which 
simulation data ,s added to plots. Thus, if OUTRATE is set equal to 10 data 

U 1 0UTOA“rsh''"^d I™' 

IS 1. OUTRATE should only be set to positive integer values. 

The n,»ber of data samples plotted for a simulation analysis is thus given by: 
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No. of Plotted Samples 


TMAX -f 1 
TINC*OUTRATE 

For most simulation operation, the plotted output specified by the DISPLAY 
commands is the primary output and little printer output is used. However, for 
diagnosing problems in a simulation, the line printer options provided by the 
PRINT CONTROL parameter allow large amounts of detailed information about the 
simulated system to be obtained. 

The value of the PRINT CONTROL parameter controls the quantity of data printed 
at each report interval as shown in Table 3.4-1. Options 1 through 4 give 
"snap-shots" of all states, rates, variables, and parameters of the system 
model at a particular point in time. Option 5 provides tabular lists of up to 
10 specified quantities.* The default value for PRINT CONTROL is 0. 

TABLE 3.4-1 

Print Control Values 

Resultant Lineprinter Output. 

None (Default Condition) 

All states, rates, and time 
All states, rates, variables, and time 
All states, rates, variables, and parameters 
at time == 0 

All states, rates, variables, and parameters 
Time and the quantities specified via PRINT 
VARIABLES command. 

The PRATE parameter determines the sampling rate at which the simulation data 
specified by the PRINT CONTROL parameter is presented on the lineprinter. Thus 
if PRATE is set equal to 5, data will be printed on the lineprinter every 5th 

^ See the PRINT VARIABLES command description below. 


PRINT CONTROL 
0 
1 
2 

3 

4 

5 
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time it is added to the output plots. The rate of output to the lineprinter can 
never be greater than that to the plots. The default value of PRATE is 1. 
PRATE should only be set to positive integer values. 

The number of data samples printed for a simulation analysis is thus given by: 

No. of Printed Samples = TMAX + l 

TINC*OUTRATE*PRATE 

Example 3.4-1: 

PRINT CONTROL = 2, TINC = .01, TMAX = 10.. 

OUTRATE = 10, PRATE = 10, SIMULATE 

In the example, the simulation would run for 10 hours. Plotted output would 

occur every .1 hour. (10* .01), and printed output would occur every 1. hour 

( 10 * 10 * . 01 ). 

PRINT VARIABLES 

This program command allows up to ten variables to be specified for printing 
under option 5 of the PRINT CONTROL. This coinnand is followed by from one to 
ten state, rate, or variable names separated by delimiters. This command wipes 
out all previously stored PRINT VARIABLES names. 

Example 3.4-2: 

PRINT VARIABLES = MA HS. E TS, VDELO 
3.5 PLOT DESIGNATION COMMANDS 

PRINTER PLOTS 
PLOT OFF 
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4 , 

The above program commands allow the plotted output to be turned on or off. 
The default condition is PLOT OFF. It is therefore necessary to include the 
PRINTER PLOTS command before requesting any analysis from which plots are 
desired. The PLOT OFF and PRINTER PLOTS commands can be issued between simula- 
tion requests if it is desired to omit the plotting of certain analysis re- 
sults. 

DISPLAYl 

DISPLAY2 

DISPLAYS 

DISPLAY4 

DISPLAYS 

DISPLAYS 

These program commands may be used to define the quantities to be displayed by 
lineprinter plots for simulation calculations. These commands must be issued 
before the simulation analysis is requested. From one to five plots may be 
specified per display. Each plot is specified by stating the dependent varia- 
ble and the independent variable separated by the letters VS. If desired, the 
independent and dependent axis scale ranges can also be specified. The inde- 
pendent scale range is specified by the word XRANGE followed by the minimum and 
maximum values for this scale. The dependent scale similarly is specified by 
the word YRANGE. If scale ranges are not specified, values will be used that 
span the given data. 

SI MANUAL SCALES 

SI AUTO SCALES (Default Condition) 

The SI MANUAL SCALES command allows the plotted output requested by the DISPLAY 
commands to be plotted on manual scales specified by the YRANGE and XRANGE 
coirmands. The SI AUTO SCALES command can be used to return plotting to the 
automatic scaling mode. Auto scales are selected so that they span each 
plotted quantity. The auto scale option is the default used until manual 
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scales are requested. The PRINTER PLOTS command 1s also required to obtain 
plots. 

Example 3.5-1: 

i 

si MANUAL SCALES, PRINTER PLOTS 
DISPLAYl 

WV2WD, VS, TIME, YRANGE = 10,40 

PI PD, VS, TIME, YRANGE = 0,1000 

P^ PD, VS, TIME, YRANGE = 0,1000 

DISPLAY2 ! 

pi IV, VS, TIME 

RE;2BA, VS, TIME 

REILO, VS, TIME 

DISPLAYS 

PI PD, VS, P2 PD, YRANGE =0,1000, XRANGE = 0,1000 

TITLE 

The TITLE command allows a title to be placed on all plotted output. Up to 74 

characters may follow the delimiter after the TITLE command. The TITLE command 

may be changed before each analysis. Once defined, the title remains In effect 
until a new title is entered. 

Example 3.5-2: 

TITLE = BATTERY TEST MODEL 

3w6 ITERATION AND DIAGNOSTIC CONTROL 

there are three built-in parameters in any SIMWEST model: CYCLES, DLINES and 

RESET. These parameters are specified similar to component parameters usinq 
the PARAMETER VALUES command. 
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CYCLES controls the number of iterations through the model to obtain steady 
state. If CYCLES < 1. then only one pass is made through the model. If CYCLES 
is a positive integer then the maximum number of iterations through the model 
is equal to CYCLES + 1. If cycles is positive, but not an integer, then the 
maximum number of iterations is equal to the smallest integer value exceeding 
cycles. A maximum of 20 iterations are permitted per time step. Most of the 
models tested require no more than six iterations per time step to attain 
steady state. A complex model with cascaded logic components may require more 

Each of the model output variables are monitored each pass for convergence. If 
an of the outputs are converged within 3% of their previous values, then one 
final pass is made through the model. Otherwise, all variables exceeding 5% of 
their previous value are printed out after the last iteration. 

Since output statistics are only updated the last iteration, some of the 

variables printed indicating nonconvergence are statistics, and as such should 
be ignored. 


DLINES controls the amount of convergence related printout as well as the 
amount of diagnostic printout from the library components. If DLINES >0 then 
the total number of diagnostics is limited to DLINES. Figure 3.6 shows a 
typical section of diagnostic printout using DLINES > 0. If DLINES < 0 then 
only library component diagnostics are printed with no more than - DLINES' of 


output. 


per run. 


Typically, DLINES - 50 is sufficient to catch most simulation errors 
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RESET controls the initialization value for the random number generators if 
several simulations are run back to back. If RESET >0 (Default) then the same 
random numbers are used for each simulation. If RESET < 0 then the random 

numbers at the start of each simulation are obtained from the last value at the 
end of the previous simulation. 

3.7 DEFINE COMMANDS 


define states 

DEFINE RATES 
define PARAMETERS 
DEFINE VARIABLES 

These program conmands may be used to replace model generated names by user 

defined alphanmneric names for system states, rates, parameters, and 

Venables. (State variable derivatives, (Rates), are generated as Rl, R 2 , ... 

jr all models. Rl, R2, ... refer to the rates of the first, second, ... 

states respectively.) If u is desired to replace these machine generated 

names with other names, the DEFINE command may be used to substitute any eight 

character name of the analyst's choosing. These names are associated with the 

corresponding numeric quantities located in the labeled commons /CX/, /CXDOT/, 

/CP/, and /cv/. The appropriate location for each quantity is printed out 

along with the quantity name prior to each simulation. Each of these commands 

IS followed by phrases containing the location numeric followed by an 

a phanumeric name with one to eight characters the first of which must be 
alphabetic. 
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Example 3.7: 


DEFINE STATES 

1 = PRESSURE, 2 = STROKE. 5 = VELOCITY, 7 = ANGLE 

DEFINE PARAMETERS 

5 = MASS, 35 = DCT AREA 

DEFINE VARIABLES, I = T OUTLET, 2 = LIQ H20 

Note that the program commands, numeric values and alphanumeric names must be 
separated by delimiters which are: comma [ , ], equals [=], left parentheses 

Cn* right parenthesis [)], or three or more consecutive spaces. 

3.8 FUNCTION SCAN COMMANDS 


SCANl 

SCAN2 

These program commands initiate the calculation of general algebraic functions 
of one or two independent variables. Associated with these commands are the 


program names and 

values 


1. 

DEPEN 

= 

dependent variable 


2. 

INDEPl 

= 

1st independent variable 


3. 

INDEP2 

= 

2nd independent variable 


4. 

STARTl 

- 

starting point of 1st independent 

variable 

5. 

STOPl 

- 

stopping point of 1st independent 

variable 

6. 

START2 

= 

starting point of 2nd independent 

variable 

7. 

DELTA2 

= 

increment of 2nd independent variable 

8. 

CURVES2 

= 

number of 2nd independent variable 

values 


which specify the dependent and independent variables and scan ranges of these 
quantities. These quantities must be set to their desired values, before 
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requesting the general algebraic function evaluation. If a single function is 
requested, i.e., SCANl. only items 1, 2, 4 and 5 need be specified. 

Example 3.8: 


DEPEN = I PV, INDEPl = STISO, INDEP2 = TC FP, STARTl = 0 
STOPl = 3000, START2 = 20, DELTA2 = 30, CURVES2 = 4 
SCAN2 


In this example, the output current of a photovoltaic array, I PV, is 

calculated as a function of solar insolation, STISO, and cell temperature 
TC FP (See Example 9.2). 


3.9 EXAMPLE OUTPUT 


Figure 3.9 shows a sample of the output print format generated using PRINT 
CONTROL = 3. This sample is taken from the Fresnel Lens Collector Model 
described in Section 9.3, which is a simple model. At each print time the 
output quantities are indexed by number and component name as they occur in the 
model. For example, first all the variables for component TI are printed, then 
all variables for component ED, etc. The parameter values at time = 0 show 
both the input values and the default parameters. After T = 0 only the states, 
rates, and output variables are printed. Since all the model connection 
variables and output variables are printed, this mode is especially valuable 
for program debugging and analysis at a fixed time. The printer plots, samples 
of which are shown in Sections 8 and 9 are useful for monitoring the time 

behavior of critical parameters such as energy in storage and percent of load 
delivered by storage. 
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4.0 JOB CONTROL PROCEDURES 


This chapter describes the job control procedures used on the BCS computer 
network MAINSTREAM-EKS to execute SIMWEST and to develop library components. 
The user at other CDC computer installations should consult his maintenance 
organization for extensions and variations to these procedures. 

4.1 JOB ENVIRONMENT 

The CDC version of SIMWEST was developed for a user with primary computer 
access via a communications terminal. The job control procedures described 
below are contained within the user's procedure file PROFIL stored as one of 
the user account permanent files. These procedures are for a CDC installation 
using the Network Operating System (NOS) and can be modified for a KRONOS 
operating system. They enable a user tc easily edit files, compile Fortran 
source on-line, and to submit jobs in interactive or remote job entry modes. 
Job output may be directed to the terminal, stored in a user controlled file, 
or disposed to a remote line printer, depending on the procedure and user 
requirements. These procedures enable the user to minimize development time in 
constructing system models, and to minimize computer resources when performing 
system simulations. 

4.2 SIMWEST PROGRAM EXECUTION 

Four procedures have been developed for constructing SIMWEST system models and 
running simulations: 

• EASYM - Interactive execution of the model generation program with 

output to user file EASYOUT 

• EASY - Batch execution of the model generation and analysis pro- 

grams with output to an RJE terminal printer 
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• EASYA - Batch execution of the model generation and analysis pro- 

grams with output to user files EASYOUT, ANALOUT, and 
PLOTOUT 

• EASYB - Similar to EASY, but includes the capability to input TMY 

tape environmental inputs (See Section 7.8) 

The following is a summary of the usage of these procedures. 

EASYM 


This procedure is used in timeshare mode to generate the user’s Fortran model 

and system schematic to verify the system model connections. The job command 
card is 


CALL (,EASYM(DATAM=MODEL) 


where MODEL is the user's model generation input file. The output file EASYOUT 
contains a readback of the input file with error diagnostics, the system model 
schematic, and the model data requirements list. A compilation listing of the 
Fortran model is also output to a local or temporary file COMPOUT. Figure 
4.2-1 is a listing of the job control cards for EASYM. 

EASY 


This procedure is used to launch a SIMWEST batch job from a terminal. The job 
command card is 


CALL ( , EASY(DATAM=MODEL , DATAA=SIMUL ) 

where MODEL is the user's model generation input file and SIMUL is the user's 
input file for the simulation program. (It is not necessary to run the model 
generation program each time, but this is normally done since it is inexpensive 
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EASYM 

•EXECUTES EASY MODEL 

RETURN<PR0G*DATAT 


GENERATION PROGRAM VIA KIT 


A T T A cm T AP E7R - WMPF/P W=PSHiD7 - 

RFL( 70000) 

MAPI PART) 

~ * •^A^T0UT>TAPE78 

#EASY0 TERMTNATXON ^rr c-tic- 
PACK(EASYOUT) *<FASYOUT» 

- REPL AC£<EASYOOT7 

GOTOflO. 

exit. 

— T Y PE . AflNOR^ At~# EAS yA -^€Rm NAT^T q re. * . 

PACK CEASY OUT) ^ tOC AL- FIL-E" HE A S YOU T IfFOR- 

RE TURN <TAPE78,TAPE7, TAPE 13 ) 

—GOTO *-1-0 Si 


FOR OUTPUT 


OUTPUl 


10*RETURN{7.«PE78f TAPET.TAP th TAor-in » 

_J5“I~“<T«P»,EASrOUT.«ODELB®Ml5poi?r*'’^“*^*'’“2*T*PE13.0AT*,PROG. 

TlfPe.StCCESSFUL MODEL 

RETURN(TAPE9> , LOCAL FILE »COHPOUT« FOR LISTING 

— PAGKl£OMPOUTl 

GQTOflOO. “ 

exit. 

-«MPiLE-.SEE- local FILE- RCOHPOUTA 

RETURNCTAPE9) 

lS^)fEXT-T* 

♦END OF PROCEDURE EASYM ^ 


for LISTIfJG 


FIGURE 4.2-1 JOB CONTROL PROCEDURE 'EASYM' 


BCS 40262-1 


61 


and provides a complete listing of the model associated with a simulation run.) 
Figure 4.2-2 gives a listing of the control cards for EASY. The job dayfile is 
also output to user file DAYFLE so that a user can verify whether a job ran 
successfully prior to receiving the lineprinter output. 

The control cards shown in Figure 4.2-2 are for the general case in which the 
user maintains and updates his own component library files WMPF and WMCOMP. If 
the user is not developing new library routines, then this procedure can be 
simplified by replacing the control cards 

ATTACH(WMCOMP/PW=PSWD) 

REWIND(ULIB,MAPF) 

LIB6EN(F=WMC0MP,P=ULIB) 

RETURN (WMCOMP) 


by the card 

ATTACH(ULIB=SIMLIB/PW=PSWD). 

The permanent library file SIMLIB is easily generated by using the above four 
control cards plus 

DEFINE(SIMLIB/PW=PSWD) 

COPYEI(ULIB, SIMLIB) 

RETURN(ULIB, SIMLIB). 

EASYA 

This procedure is used to launch a SIMWEST batch job from a terminal with 
output to user files for rapid inspection of output and subsequent printout as 
desired. The job command card is 

CALL ( . EASYA(DATAM=MODEL , DATAA=SIMUL ) 
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I 


WARR{TN/ 575-5095 


u^tR,E:EXXl5,E:£XXi5. 4.W. 

* SIMUEST JOB — 
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COPYSBF(DATA) 

RCWI NO ( DAT AfPR OG*ROOELX-*F>^ 
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cop»L(f,modelx,progJ 

->«E-TURN ( F-, MOOEtrX 
REUINOCPRog) 

attach (WMCOMP/PU rpswo) 

-«EUIND(ULIB-,MAPF.I 

CTBGENf F=wmcOMP,P:=UL IR i 
RETURN(UHCOHP) 

“KFE( 11 one 0 >. 


/ 9C 


EOAOXEQ (F=PROR .Ii-iii TO * 

R0T0(2d ) ~^^^8tS=:DATA,H=/MAPF» 

EXIT, 

REUINO(MAPF) ■ 

COPVEI (MAPF) 

?0!#RETURN ( PROG ) 

• printer plot pr'ogr;’„' 

REmND(TAPC3Q) . 

ATTACH(NSMPPt/UN-Rr m ur- e ~ 

«PE(76000 ) '^''^'^-^^”‘J-S,PW=pswD) 

MAPI OFF) 

LO ADXEQ(F~NSMPPT) — , 

10O,CXIT(U) 

OAYFILECOAYFLC) . 

F v,PL AC E ( D A YFE E ) - ~ 

EXIT. 

* — ENO OF PROCEDURE- _ 


figure 4.2-2 JOB CONTROL PROCEDURE 'EASY' 
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where MODEL and SIMUL are the model generation and simulation input file names. 

e output of the model generation program and the model Fortran listings are 
con amed in file EASVOUT. Similarly. ANALOUT contains the output of the 
mulat.on program. PLOTOUT contains the output of the printer plot program, 
and DAYFLE contains the job dayfile. The user is cautioned to print out 
results of interest before reexecuting this procedure since only the most 

recen program output is saved on the output files. Procedure LIST may be used 
for this purpose (see Section 4.3). 

li’rrt- generation or 
simulation program load and execute step aborts, a load map is also copied onto 

respective output file for error traceback and debugging. 

EASYB 


^he Z t ">o«el includes an ED exponent. 

IntTdZV “"taining environ- 

mental data for a 24 hour period. There are 26 stations on the tape with each 

station containing a standard meteorological year of 365 days. Thus the user 

must edit EASYB whenever a different station or data record length is reguir 

A rocedure THYRD is used to select and copy that portion of the TMY tape Zb; 

S MMFsZ r l*>gnch a 

SIMWEST job using EASYB is 

CALL ( , EASYB ( DATAM=MODEL , DATAA=SIMUL ) 

Each eaS B job mounts the TMY tape and creates a local file TAPEl for input to 
data, then TAPEl can be saved and the TMYRD cards in EASYB replaced with 

FILE(TAPE1.CM=YES.MBL=3168.FL=132.RB.24.RT=F.BT=K) 
get (TAPE l) 


This eliminates creation of the input file TAPEl 


for each separate SIMWEST job. 
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»E£Kf T 2 Ci C* 111 L'OOa,POi». 

liS£R*EEXX15*EEXX15. A.U:. WARRE:n /575-5C95/ 9 
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RFL(770q0) 
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♦ SIMULATION PROGRAM 


- REUINDCDATA) 

COPY3R* ,DATA) 
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RFL*110000) 
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R E WT ND * H A PF) 

COPTEH MAPF* ANALOUT) 

2Df PACK* ANALOUT) 

' R EP L AUFTXAI A LO UT) — ’ 

* PRINTER PLOT PROGRAM 


REWIND(TAPE3D) “ - 

ATTACHCNSHOpT/PUxPSWDfUNrSIMWfS) 

MAPOFF) 

FOAOXEQ*F = NSMP®T, S=PirOTOUT) " 
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REPLACE*PLOTOUT ) 

100 *EXIT*U) - » 

DAYFILEf DAYFLE. 

REPLACE* DAYFLE) 
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♦ --END OF PROCEDURE EASYA- 


- -JEi5Ui^. 4,*l-3...iOO,QNIRaL^ 
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REWIND(DATAtHODELBtF) 
ATTACH(F=NONSIMA/PW=PSWD tUN=SIMWES) 
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RETURN(F) 
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“ - * PRINTER--PE-OT— PR43GR/VM — 

* 





REUIND(TAPE30) 
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--Exit,-- ^ 

• — END OF PROCEDURE EASY 8. 



FIGURE 4.2-4 JOB CONTROL PROCEDURE 'EASYB' 
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The job command card to create input file TAPE! is 


CALL(TMYRD(NSKIP=N1,NC0PY=N2) 

where N1 is the number of logical records to skip and N2 is the number of 
records to be copied from the TMY tape onto TAPEl. These parameters are 
specified using 

N1 = 365 * (NSTATION -1) + DSTART -1 
N2 = OEND - DSTART +1 

where 

NSTATION = station number of the data file as shown in Table 7.8 
DSTART = first or start day of the desired data file 
DEND = last or end day of the desired file. 

For example, if a user wanted TMY inputs for April {DSTART = 91 and DEND = 120) 
at Albuquerque, New Mexico (NSTATION = 13), then N1 = 4470 and N2 = 30. Thus, 
procedure EASYB would be edited so that the TMYRD call statement reads 

CALL ( TMYRD ( N SK I P=4470 , NC0PY=30 ) 

4.3 FILE MAINTENANCE AND LIBRARY UPDATES 

This section describes frequently used procedures for modifying and developing 
SIMWEST library components. A terminal based user would first create his 
Fortran component subroutines and any associated subroutines as records within 
a user file of source routines. The procedures FORMOD and FORMODG are then 
used to compile these routines and merge the relocatables produced onto the 
component library WMCOMP. The FILOAD procedure is then called to update the 
component name list of input and output variables on WMPF. (See Section 6.0 
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for component coding conventions and preparation of input for the FILOAD pro- 
gram.) Usage of the procedures FORMOD. FORMODS, FILOAD, and LIST are described 

DG I OW« 


FORMOD 


This procedure is used in timeshare mode to compile a multi-record Fortran 

records The'iV' 'd' ^ 

records. The job command card is 


CALL(,FORMOD(SOURCE=MVFILE,OLD=RELFLE) 


where MTFILE is the permanent file name of the user's source code and RELFLE is 
the file name of the relocatable code. 

Figure 4.3-1 shows the control cards for FORMOD. If the source code has fatal 

errors, diagnostics are printed out on the terminal printer. Otherwise the 

source code listings are disposed to a lineprinter. If no relocatable file is 

specified, or if RELFLE cannot be found, then the object code is copied onto 
permanent file 'OLD'. onto 

FORMODG 

This procedure is similar to FORMOD except it enables compilation of specified 
records from a multi-record source file. The job command card is 

CALL( ,FORMODG(SOURCE=MYFILE,OLD=RELFLE) 

The terminal then proi^ts the user for the record numbers of the source code to 
be compiled, i.e., the terminal prints: 
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formod 

* COMPILES 


AND MERGES EXTENDED FORTRAN PROGRAMS 
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5;*REUI ND(S1) 

-T*4CK(S1) 

RFL(77000) 


FrN(A,I=Sl,B=TEXT,L=LIST,R=3,0PT=ll 

for no FTN ERI 


C*U<. LIST) -'"ERRORS 

— GOTO *10".-- 

E^IT. 

FORTRAN ERRORS 

■return, 

«tWINO(LIST) 

— ERRL-IST^E-IST-. — 

LISTING TO LINEPRINTFRx r ai i # 
10*RETURN(S1) ‘-^'^c.f'KlNrER% CALL(*LIST) 

-^TMRO.^O,w«,I-0,*0,_SK4TE_Ka.^E_I-F--ERRORS 


^T«T-- Mlr^ 

* OF SUBROUTINE OR PROGRAN. TEX^ ^JlE 

— ATTACH(S1=0L0/-PW=PSWD*M=UJ- 

GOTO,30. 

exit. 

— REWI4yiD(TEXTT _ 

DEFINE(S2 = 0L0/PU=PSUD) 

COULD NOT BE FOUND 

‘i^PrEnTE^^:s1^■'*'^''**«’^"- ’’"•'"‘--FNr file- xolor 

GOTO*20. 

--EpMT. 

type. OLD FILE BUSY 

-eo.TniAnr* ”“^ °" file RTEXTX 

3|0, REWIND (SI, OLD, TEXT) 

C0PYLM(S1*TEXT*0LD,*A) 

— Rt WI NO (OL O^Sl J 

CpPYEl (OLO*S1) 
type. SUCCESSFUL MERGE INTO 
-20 »RETURN( S1,TEXT *CLO* S2)- 

60 ,RFL (20C00) 

*--ENO OF PROCEDURE FORMOD 


«0L0« file 


FIGURE 4.3-1 JOB CONTROL PROCEDURE 'FORMOD' 
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INPUT RECORD NUMBERS 
I> 


The user enters the record numbers to be compiled followed by two carriage 
returns (CR), i.e. 

I> 3,38 CR 
I> CR 

This procedure will catalog the records to be compiled, compile the source code 
and merge the object code onto RELFLE, replacing old object code routines with 
those just created. Figure 4,3-2 shows the control cards for FORMODG. 

FI LOAD 

This procedure is used in timeshare mode to create or modify input, output and 

table name and dimension data for SIMWEST library components. The job command 
card is 

CALL(,FILOAD(DATA=NAMES) 

where NAMES is the permanent file name of the input data for the FILOAD 
program. (See Section 6.2 for preparation of the input file.) 

If the FILOAD program execution aborts, the user should check the format of the 
input data since exact spacing of the alphanumeric character inputs is re- 
quired. Figure 4.3-3 shows the control cards for FILOAD. 

LIST 


This procedure is used to dispose a local file to be printed. If the local file 
LOCAL has no printer control characters, then one uses the command cards: 
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F0RM3DG 

W^RGES CXTE\f)£n FORTRA M Pa Q G R A S 

REWIMD(LIST»TFXT) 

_GET< a=SOURCE) 

“G'O T 075'^ — - — - — 

exit. 

type.' candt fimd fsource# 

50 T 0 f 6 0 . ~ - 

5tRETURN{0UTPUTX) 

•^SELECT SOURCE RECORDS TO BE COIi®ILCD 

REiJ iwcpRifFTn — - 

SKIPF(PR0FJL»5) 

C0PY3F(PR0FIL»3T) 

TITtfTVOTGTTFT— 

RFLI30000) 

ST.' 


R ETiQ urnr) 

CATAL06<F> 

RETURN (A,GT»TA3E Of lAU) 

“Tj'o roTTi — — 

EXIT. 

GOTOtGD. 

• CDMP rrEnsrDTJTtr-TTCE-F 

TtPACK (F) 

RFL( 77000) 

TJN { A 1 1=F « B=TrXT» 1 -CTS’TTfTs^TOPT^r 
TYRE. SUCCESSFUL FTN COMPILATION 


^ERO FOR NO =TN ERRORS 


SET<R2=0) 

“RETUR-NCFT 

CALb<tLIST) 

GOT 9 « 1 0 • 

■^x'rn — 

SET(R2=1) INDICATE FORTRAN ERRORS 
-n£‘n'iij^u!?r °et ects:d ar ektendeo cdmmlsk 

ERRLISTtLIST. 

CALL(,LIST) 

fW2.ta, 1 > 5 DTD ,701 SXID~71ERGr~TF“TR'R0'RS 

ATTACH<S1=OLD/*U=oSUD»M=U) 

GOTO* 30. 

"EX^ITT — 

RCUINO(TEXJ) 

_DEF^NEC S2=OLD/PU=PSWO> 

"TYPE . oronniE c ourou oyBi 


Twar » --“F'oond 

COPYfl(TEXTl's2)^^ PLACED ON PERMANENT prE «0LC 
“COT 0720^ — — 

exit. 

Tf'pE^OLD FILE BUSY 

~^r ^ ^ ^ -“OTTTO CTT-FI t mrj Ex T TT 

iPUl Ul 6C f 

30fREWIND(Sl,OLD»TEXT) 

' C 0 p V LM is ITT EX T , 0 L D VT'Al 1 

REWIND(0LD,SJ) 

Ct)f?YEUOLD,Sl ) 

■TY»E7ST)CCESSFUL“MERGETNT0~#DEDr-FILE- 

20tR£TURN( Sl.TE XT * OLOf $2) 

60tRFLC20000) 

*— ENff“Or 



FIGURE 4.3-2 JOB CONTROL PROCEDURE 'FORMODG' 
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FILOAD 

RFTURNCOUTPUTX »DMPFILE*TAPE77,TAPE:9) 

ATTACH<FILOA04/^N=SIHWE5^PW=PSWD) 

ATTACH(TAPE73=UMPF/PW=PSUDtH=U) 

GET<TAPE3=DATA) 

--RFLOOOOC-) 

TYPE. FILOAD EXECUTION HAS BEGUN 
FIL0AD4. 

— R£UlND(TAPE7RtTAPE79> ... .... ... 

C0PYNF(TAPE79,TAPE7«) 

TYPE. NORMAL ^«FILOADIf TERMINATION 

- -RETURN <TAPE78tTAPE3, TAPE-79, FILGAD4I 

EXIT. 

TYPE. ABNORMAL KFILOAOW TERMINATION NO DEGAS OCCUREO SEE DMPFILE FOR DUMP 

~ RETURN <TAP€3^T AP&7^,T?-IT.-D7^047 __ 

* END PROCEDURE FILOAD 


FIGURE 4.3-3 JOB CONTROL PROCEDURE 'FILOAD' 


LIST 

* CONTROLS LIST PRINT, SUBMITS TO 

— *- AS -OES IREO-BY-TER-MTTiA-t-USER 

GET< MAILBOX) 

EXIT(U) 

- REWINDIEISr^ 

DISPpSE.fLIST=PR/EI=SC1183) 

* —END OF PROCEDURE LIST 


PRINTER FROM KIT 



FIGURE 4.3-4 JOB CONTROL PROCEDURE 'LIST* 
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COPYSBF(LOCAL,LIST) 
CALL (.LIST) 




To print files such as EASfOUT which contain printer control 
suffices to use the command 


characters. 


it 


CALL(.LIST(LIST=EASYOUT) 

Figure 4.3-4 shows the control cards for LIST. (See previous page.) 
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5.0 DIAGNOSTICS 


p“!oTaT''iraddu' 

program l„ addUion. -.ndividoal library components generally hare diagnostic 

a j program are discussed in Section 2.0. Section 5.0 describes the diagnos- 
tics associated with the siaailation program and the library con^onents. 

5.1 WARNING MESSAGES 

LTs°dirf7cuUv'Tn will occur if the program encoun- 

sis The«;p ^ ^*^*^*"^ a>ialysis instructions or performing an analy- 

s. These messages will be preceded by the flag: 


■k-frk 


WARNING *** 


Message sjnnbols xxx, zaz, or nnn are used to indicate phrases from the analysis 
description that are included as part of the warning message. The fo w 
messages are listed in alphabetical order: toHowing 

1. A VALID PARAMETER NAME MUST PRECEDE THE NUMERIC VALUE nnn 

This message indicates that a valid parameter name was not identified 

receding the numeric value nnn. ChecR for missing delimiters or lis 
spelled parameter name. 

2. xxx CAN'T BE SET EQUAL TO zzz. VALUE MUST BE NUMERIC. 

Check for missing numeric value or delimiters. 

3. CAN'T IDENTIFY xxx AS A VALID PRINT VARIABLE 
Check spelling of xxx or for missing delimiters. 
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blank not fzlmed 
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't ■ ^ 

4. CAN'T IDENTIFY xxx VALUE WILL BE IGNORED 

This will result in not setting the quantity intended by xxx to its new 
value. Check for spelling of xxx or for missing delimiters. 

5. CAN'T INTERPRET xxx 

The phrase xxx cannot be recognized as a valid program command, program 
name, or program value. Check spelling of xxx or for missing delimiters. 

6. nnn EXCEEDS THE ALLOWABLE INDEX RANGE FOR xxx THIS QUANTITY WILL NOT BE 
DEFINED 

The number nnn was outside the allowable range of states, rates, variables, 
or parameters. Therefore, the name xxx cannot be assigned as a name for 
the nnnth state, rate, variable or parameter. . 

7. NON-ALPHA NAME ON THIS CARD — - xxx. WILL IGNORE THIS CARD. 

The table inputs routine expected an alphanumeric table name but encoun- 
tered a numeric value on the data card printed. Check the sequence and 
number of tabular data cards to assure that they match those required by 
the model's tables and table input formats. See Section 3.1.2 for correct 
formats. 

8. NON-NUMERIC DATA ON THIS CARD — xxx. WILL READ NEXT TABLE 

The table input routine expected a numeric value but encountered an alpha- 
numeric name on the data card printed. Check that the sequence and number 
of tabular data cards matches the model's tables and table input formats. 

See Section 3.1.2 for correct formats. 

. -1* ' V 

» ■ 
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9. nnn PRIMARY and xxx SECONDARY INDEPENDENT VARIABLE POINTS EXCEEDS THE zzz 
WORD STORAGE LIMIT FOR THE FOLLOWING TABLE. SOME DATA WILL BE LOST. 

The maximum amount of data allowed for each table is given in the Input 
Requirements List produced by the Model Generation program. Check that 
given data falls within this limit or for data card errors. 

5.2 DIAGNOSTIC MESSAGES FOR LIBRARY COMPONENTS 

Diagnostic messages are produced by many components when a critical variable 
gets out (prf bounds during analysis. Adjustment of component parameters may be 
necessary. 

In component alphabetical order, these diagnostic messages are; 

AD: INPUT POWER xxxx TOO HIGH RELATIVE TO ADMITTANCE xxxx AND RATED 

VOLTAGE xxx 

ADMITTANCE POWER LOSS xxxx EXCEEDS INPUT POWER xxxx 

BA: POWER REQUEST xxxx EXCEEDS BATTERY CAPABILITY. CHECK VC, VO, AND RT. 

BN: BN INLET AIR MASS FLOW RATE xxxx GREATER THAN MAXIMUM ALLOWABLE xxxx 

CO: MAX ITERATIONS FOR COMPRESSOR EFFICIENCY. NP, XNP, RS = xxxx, xxxx, xxxx 

CS: CS STORAGE TEMPERATURE xxxx GREATER THAN ALLOWABLE xxxx 

CS MASS OF AIR IN STORAGE xxxx BELOW MINIMUM ALLOWABLE xxxx 
CS MASS OF AIR IN STORAGE xxxx EXCEEDS MAXIMUM ALLOWABLE xxxx 

ED: INPUT ERROR, DAY OF YEAR DY IS OUT OF RANGE 

TAPE INPUT ERROR OR EOF 
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FL: FLYWHEEL POWER LOSS xxxx EXCEEDS CHARGING POWER xxxx 
FLYWHEEL LOSS xxxx EXCEEDS DISCHARGING POWER xxxx 
FLYWHEEL CLUTCH LOSS xxxx EXCEEDS DELIVERABLE POWER xxxx 
FLYWHEEL KINETIC ENERGY xxxx EXCEEDS CAPACITY xxxx 
FLYWHEEL KINETIC ENERGY xxxx FALLS BELOW MINIMUM REQUIREMENT xxxx 

GE: GENERATOR OUTPUT EXCEEDS RATED POWER 

HS: HS INLET MASS FLOW RATE xxxx OR OUTLET MASS FLOW RATE xxxx IS GREATER THAN 
MAXIMUM xxxx 

HS RESERVOIR VOLUME xxxx EXCEEDED MAXIMUM ALLOWABLE xxxx 
HS RESERVOIR VOLUME x^fxx DROPPED BELOW MINIMUM xxxx 

HT: HT TURBINE CHARACTERISTIC PARAMETER OUT OF RANGE 

HT INLET MASS FLOW RATE xxxx GREATER THAN MAXIMUM DESIGN VALUE 

HX: HX EXIT TEMPERATURE xxxx GREATER THAN MAXIMUM ALLOWABLE xxxx 

IF: IV POWER LOSS xxxx EXCEEDS INPUT POWER xxxx CHECK RATED DC VOLTAGE VDC 

MB: WARNING-DIVISOR IN MB EQUALS 0., HAS BEEN SET =1. 

MO: MOTOR INPUT POWER xxxx .GT. RATED INPUT POWER xxxx 
MOTOR SLIP xxxx EXCEEDS RATED POWER SLIP xxxx 
STATOR RESISTANCE xxxx OR DAMPING xxxx TOO HIGH FOR MOTOR 

PV: WARNING: INSOLATION OR TEMPERATURE AT CELL EXCEED RANGE 

RE: RE POWER LOSS xxxx EXCEEDS INPUT POWER xxxx 

RE. AC INPUT POWER xxxx TOO LARGE IN RELATION TO TRANSFORMER REACTANCE 
xxxx AND RATED AC VOLTAGE xxxx 
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TR: TR/WSMISSION POWER LOSS xxxx EXCEEDS INPUT xxxx 

transmission power loss xxxx exceeds maximum input power 

TS “XINUM allowed xxxx 

TS ™Lr charge rate xxxx 

TEMPERATURE xxxx OUTSIDE MINIMUM xxxx OR MAXIMUM xxxx 

TU: TURBINE BACK PRESSURE xxxx GREATER THAN STORAGE VESSEL PRESSURE xxxx 
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O.u lkeation of new library components 

sZr'rtnL"-: tr *wo 

--on 0. ^::.o^z:::.:t::: r ‘- 

;rrrsr ";: m;p~‘" 

c.„ ~ 

e use 0 the FILOAD program to accomplish this task. 

6.1 LIBRARY COMPONENT CODING 


^mponent Call Segupnrp 

The items in the component subroutine call 
following order: 


sequence must be arranged in the 


1. Tables 

2. Output Quantities 

3. Input Quantities 

Tables or inputs may be absent from the subroutine n.ii 

those items that are present must foil sequence. However 

are present must follow the sequence given above. 

Dummy argument names for the call sequence quantitiee fhe* 

subroutine should be chosen to mafm tw . are used within each 

input, output, and table "ale its Ex ft 
when integer names (names startinn w’rw t f 

additional letters tTflarit tre. ^ -- 


avfie 
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The subroutine name must contain only two characters and must not duplicate the 
name of an existing standard component. 

Tables 


The table arrays must be dimensioned within the component subroutine. They 
must be dimensioned with only one subscript; e.g., DIMENSION TABLE (1). When 
table data is passed to the component subroutine, the first word in the array 
contains the name of the table. The second word contains the number of values 
given for the primary independent variable. The third word contains the number 

f ' ■ ■ ' 

of values given for the secondary independent variable. Both of these numbers 
are stored as REAL quantities and must be converted to INTEGER before they can 
be used as a subscript. This can be done by a statement such as: 

NX = TABLE (2) - number of primary independent variables 
NZ = TABLE (3) - number of secondary independent variables 

If there is a secondary independent variable, the secondary independent varia- 
ble array will begin with the fourth word in the array. Thus if this array is 
designated as z(l), z{2), then: 

z(l) = TABLE (4) 
z{2) = TABLE (5) 
z{3) = TABLE (6) 


The primary independent variable array begins with word NZ + 4. Thus, if this 

array is designated as X(1),X(2), ..., then: 
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X(l) = TABLE (NZ + 4) 
X(2) = TABLE (NZ + 5) 


The dependent variable 
independent variable, 
then: 


array begins with word NX + 4 if there is no secondary 
Thus, if this array is designated as V(l), v( 2 ), 


Y(l) = TABLE (NX + 4) 
Y(2) = TABLE (NX + 5) 


If there is a secondary independent 
ted Y (I,J), with 1< I< NX and 1< 
table array as: 


variable array and this array was designa- 
NZ, then Y(Isil) would be related to the 


Y(I,J) = TABLE(NX+NZ+3+I+(J-1)*nX) 


Normally the individual elements in the table are not used directly but are 

passed to a table look-up routine. In this case the starting address of the X, 
Y, and Z tables would be referred to as: 


Z(l) = TABLE (4) 

X(l) = TABLE (NZ+4) 
Y(l,l) = TABLE (NX+NZ+4) 


secondary independent variable table 
primary independent variable table 
dependent variable table 


If more than one table is used by a component subroutine, the table names must 

appear in the same sequence in the table name list sto-ed in WMPF as in the 
subroutine call sequence. 


■X 


Example 6.1: Given a component, HA, that requires the tables TPH and TPC as 
inputs. The call sequence of this subroutine would appear as: 

SUBROUTINE HA{TPH,TPC, . . . 

Output Quantities 

The term "output quantity" refers to information that is calculated and then 
'•out£ut" by a particular component subroutine. This is not to be confused with 
the "outM quantities" of the component. The outlet quantities are associated 
with a particular component port as a result of assigning a positive direction 
of power or information flow through the component. Some outlet quantities may 
be calculated by the component subroutine and thus become output quantities of 
that component. While other outlet quantities may be furnished to the compo- 
nent subroutine and thus become input quantities to that subroutine. 

Certain output quantities may be internal to the component and not associated 
with any port. In other cases the same output quantity may be associated with 
several ports. In such cases, no port designation is assigned to the output 
quantity. Such quantities are referred to as "universal port" quantities. As 
such, they are allowed to connect to any other similar physical quantity 
regardless of the input quantities port number. This is not the case for 
quantities with specified port numbers. Once a connection has bee?i made 
between an input and output quantity with given port numbers, only connections 
of matching physical quantities with those port numbers occur. Manual override 

of this provision can be made by specifying particular physical quantity con- 
nections. 

Three quantities are required for each state variuble output. The first is the 
state variable, the second is the state variable derivative, (rate), and the 
third is an integer quantity, the integrator control variable. 
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Example: Given a component, HA, with the following outputs: 
Physical Quantity Port No. 

^ I 

I Outlet Ports 


T 3 

P 1 (State Variable) 

^ 2 (State Variable)] 

The call sequence arguments for these outputs would be: 


Inlet Ports 


SUBROUTINE HA(TPH,TPC,T3,T4,P1,P1D0T, IP1,P2,P2D0T, IP2, . . . 

Input Quantities 

The term "input quantity" refers to information that is provided to a particu- 
lar component subroutine. This is not to be confused with the "inlet quanti- 
ties" of the component. The inlet quantities are associated with a particular 
component port as a result of assigning a positive direction of power or 
information, through the component. Some inlet quantities may be calculated by 
the component subroutine and thus become output quantities of that component 
while other inlet quantities may be furnished to the component subroutine and 
thus become input quantities to that subroutine. 

Ihe input quantities should be grouped together by port. That is, all inlet 
(port one quantities), then all outlet, (port two quantities), etc. Port 
designations for two port components which have the same physical quantity on 
both inlet and outlet will be: port 1 for upstream or inlet port and port 2 for 
downstream or outlet port. It is important that the inlet port quantities be 
listed before any outlet port quantities. If a component has multiple inlet 
ports the input quantities associated with each inlet port should be grouped 
together and listed before any outlet port quantities. 
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Certain input quantities may be internal to the component and not associated 
with any port. In other cases, the same input quantity may be associated with 
several ports. In such cases, no port designation is assigned to the input 
quantity. Such quantities are referred to as "universal port" quantities. As 
such, they are allowed to connect to any other similar physical quantity 
regardless of the output quantities port number. This is not the case for 
quantities with specified port numbers. Once a connection has been made 
between an input and output quantity with given port numbers, only connections 
of matching physical quantities with those port numbers occur. Manual override 
of this provision can be made by specifying particular physical quantity 
connections. 

Example: Given the component HA described in the above example, with the 
following inputs; 

Physical Quantity Port No. 


T 

T 

P 

P 

AKH 


Inlet Ports 


Outlet Ports 


(universal port quantity) 


The call sequence for these inputs would follow the output arguments, giving 
the complete call sequence: 


SUBROUTINE HA(TPH,TPC,T3,T4,P1,P1D0T,IP1,P2,P2D0T,IP2,T1,T2,P3,P4,AKH) 

The call sequence for standard component subroutines should follow the order 
shown in Table 6.1-1. 
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TABLE 6.1-1 


COMPONENT SUBROUTINE 
CALL SEQUENCE ORDER 


1. Tables 

2. Output Quantities 

2.1 All Ou tlet Port Quantities* 

2.2 All InJ^ Port Quantities* (feedback variables) 

2.3 All Other Output Quantities 


3. I nput Quantities 

3.1 All I nlet Port Quantities* 

3.2 All Ou tlet Port Quantities* (feedback variables) 

3.3 All Other Input Quantities 


* Sroup quantities with the same port number together. If multiple iniet or 

outlet ports exist, arrange port quantities in order of increasing port 
numbers. 
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6.1.2 Additions and Modifications to Component Library 

Section 4.3 describes the job control procedures to add a new component to the 
component library, compile the source code that describes the new component and 
add the relocatable binaries to the component library WMCOMP. 

6.1.3 Coding Conventions 

There are several coding rules which apply to any component coded. First of 
all, the calling sequence must be ordered so that it agrees with that con- 
structed from the FILOAD program. Hence the calling sequence begins with table 
arrays, is followed by output variables, and then by input parameters. State 
variables require three sequential parameters in the calling sequence: the 

state variable, the state derivative, and an integer valued integration con- 
trol. With the exception of the latter, all parameters in the calling sequence 
are real valued. In general, one cannot use any local variables or arrays to 
store information from call to call since there may be several components in 
the model which call a given subroutine. In other words, local variables can 

only be used for scratch calculations, unless the computed information is based 
on COMMON block inputs. 

Most of the coding conventions and techniques used are Illustrated In Figures 

6.1-1 and 6.1-2. Figure 6.1-1 shows the code for the simple power curve 

component WP. Following the call sequence are a number of comment cards 

Including the component purpose and calling sequence. The table PW is treated 

as a single dimension Fortran array. Power output is obtained from the table 

interpolation subroutine TBLUl. (Use of the table interpolation routines 

TBLUl and TBLU2 is explained in Section 2.1). The rest of the code shows the 

conventions used to compute output statistics and add costs for the cost 

summary. IMPL is an integer variable which indicates the iteration control 
status: 
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Uuu 


CUP 


c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE WR , --.St .PO..HI.»HP.SR,co,va.WO.HVl.HV,CCI,CRI.ECI 

PURPOSE HODEL THE WINO TURBINE AND GENERATOR USING A POWER CURVE 

» V w 


WRITTEN BY A.W. WARREN 


CALL SEQUENCE 

tables 

PW 

OUTPUTS 

BI 

P3 

AMI 

AMP 

SP 

CO 

INPUTS 

VO 

WVO 

WVl 

WV 

CCI 

Dll 

EC 


VERSION 1, MARCH 3 1977 


- WIND GENERATION POWER IN KW VERSUS WINO VELOCITY IN MPH 


OUTPUT BUS CURRENT, AMPS 
POWER OUTPUT, KW 
MAX. OBSERVED CURRENT, AMPS 
MAX. OBSERVED POWER, KM 
TOTAL OUTPUT ENERGY, KWH 
OPERATING COST, $ 


RATED BUS VOLTAGE, VOLTS 
POWER CUTIN VELOCITY, MPH 
POWER CUTOUT VELOCITY, MPH 
WIND VELOCITY, MPH 
CAPITOL COST / YEAR, $ 
maintenance COST / YEAR, $ 
CONTROL ENERGY RATE, S/HR 


DIMENSION PWd) 

COMMON / CIMPL / IMPL 

CONHDN/COST/ CC.CH.COP /CTINE/ TINE /CSIMUL/ DUN,6I.TINC.TMAX 


POWER OUTPUT CALCULATIONS 


C 

c 


PO = 0. 

N’'i**pW('2)^'^° WV.GT.WVl) GO TO 10 

o? T®‘-‘J1‘WV,PW(4),PW(4+N),1,-N» 

10 BI = P0*1000/V0 

STATISTICS 

IF( IMPL.GT.O) GO TO 20 
C0“ 0 . 

AMI = 0. 

AMP = 0. 

SP = 0. 

TMAXl-THAX*. 99999 
20 IF{ IMPL.LE.I ) RETURN 
AMI = AMAXl (AMI, RI ) 

AMP = AMAX1(AMP,P0) 

SP = SP ♦ P0*.5*TINC 
COs CO ♦ EC*.5*TINC 

TEi TTuc SUMMATION 

IF( TIME.LT.TMAXll RETURN 
CC * CC ♦ CCI 
CM = CM ♦ CMI 

COP= COP ♦ CO 

RETURN 

ENO 


FIGURE 6.1-1 SAMPLE COMPONENT CODE - WP 
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CCE 

SUBROUTINE GEI P?, EE, RS, PL, EF2 ,PM2,PNN ,SP| Pl,RAP,RSV,RAS,DA, SRf V0» 

I EF1,PNI,CCI.CMI) 

PURPOSE MODEL AC INDUCTION GENERATOR 

HETHOD MECHANICAL AND ELECTRICAL EFFICIENCIES ARE USED TO COMPUTE 
OUTPUT POWER. ROTOR SPEED IS COMPUTED ASSUMING POWER IS 
PROPORTIONAL TO SLIP. 

WRITTEN By A.W. WARREN VERSION 1, MARCH 16 1977 

CALL SEQUENCE 
OUTPUTS 

P2 - OUTPUT POWER, KW 
EE - ELECTRICAL EFFICIENCY 
RS - ROTOR SPEED, RPM 
PL - POWER LOSS, KW 
EF2 - OUTPUT PRODUCT EFFICIENCY 
PM2 - MAXIMUM OUTPUT POWER, KW 
PMN - MAX. DESERVED OUTPUT POWER / RATED POWER 
SP - TOTAL OUTPUT ENERGY, KWH 

INPUTS 

PI - INPUT POWER, KW 
RAP - RATED OUTPUT POWER, KW 
RSY - SYNCHRONOUS ROTOR SPEED, RPMN 
RAS - RATED POWER SLIP (DEFAULT = .05) 

OA - MECHANICAL DAMPING, JOULE-SEC 
SR - STATOR RESISTANCE, OHMS 
VO - RATED 3US VOLTAGE, VOLTS 
EFl - INPUT PRODUCT EFFICIENCY 
PMl - MAXIMUM INPUT POWER, KW 
CCI - CAPITAL COST/YgAR, S 
CMI - MAINTENANCE CQST/VEAR, S 

COMMON /CIMPL/ IMPLjICNT /CTIME/ TIME 
COMMON /COST/ CC,CM,CO,CV /CSIMUL/ DUM (6) ,TINC,TMAX 
INITIALIZATION 

IF( IMPL.GT.O) GO TO 10 
EFF « X. 

TMAXl = TMAX* .9P999 
IFIRSY.EO. .99990) rsy = 1300. 

IFIRAS.EQ. .99999) RAS = .05 
IFTOA .ED. .99999) DA = 0. 

IFISR .ED. .99999) SR =\*. A/RAP 
lF(VO .EQ. .99999) VO = 400. 

XFIPMI.ED. .99999) PHI = I.EIO 
PMN =0.0 
SP *0.0 

RATI = RAPPICOO./VO 
EE * RAP/IRAP + SR«.001PRATIP»2) 

COMPUTE ROTOR SPEED AND OUTPUT POWER 
10 IF( Pl.GT. 0.) GO TO 20 
PZ *0.0 
PL *0.0 
RS = RSY 
GO TO 30 

20 A * RAP/(EE*RAS) 

B » ftSY/< A ♦ RSY**2*DA*l.C966E-5 ) 

RS * B*(A ♦ PI) 

P2 = RAP*(RS/RSV -l.)/RAS 
IF (P2.GT.RAP.AND, IMPL.EO.2) WRITE<6,100) 

^ 100 FORMATIIHO, 40X , 37HGENERAT0R OUTPUT EXCEEDS RATED POWER /) 

IFtP2.GT.RAP .AND. IMPL.EO.2) ICNT=ICNT-*-l 
PL » PI - P2 
EFF * P2/P1 
30 EF2 = efi*eFF 

PM2 * AMINIIRAP, PM1*EFF) 

C 

c STATISTICS 

IFIIMPL.LE.I) RETURN 
PMN a. AMAXUPMN, P2/RAP) 

SP * SP ♦ P2*.5*TINC 
C 

C COST SUMMATION 

iFt TIME.LT. TMAXl) RETURN 
CC » CC ♦ CCI 
CM « CM ♦ CMI 

c 

RETURN 

END 


FIGURE 6.1-2 SAMPLE COMPONENT CODE - GE 
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IMPL = 0 the first time in a simulation that the model (EQMO) is called 
= 1 if more iterations and hence subroutine calls are expected at a 
given time step 

>1 the final iteration through the model 

Hence when IMPL = 0, subroutine variables are initialized, default values are 
assigned, etc. The statistics are only updated at the final iteration when the 
model has presumably attained steady state values. Finally, the costs are 
added up when the simulation has reached the maximum time point. Capital 
costs, maintenance costs, and operating costs are stored in the first three 
locations of common block COST. 

Figure 6.1-2 shows the code for the generator component GE. The program 
automatically assigns default parameters = .99999. Hence, when IMPL = 0 
component dependent default values are assigned whenever the .99999 default is 
assumed. The code near Format statement 100 shows a typical diagnostic print- 
out. The diagnostic is only printed if IMPL = 2 since we need only diagnose 
errors at the final iteration. Note that a counter ICNT is updated each time a 
diagnostic is printed. It is stored in the second location of common block 
CIMPL and is monitored to see if diagnostic print lines exceeds DLINES. If so, 
IMPL is set to 3 the final iteration, so that no further diagnostics are 
printed. The last convention observed here concerns the use of the maximum 
power and product efficiency variables denoted PMl, EFl, PM2, EF2. These 
variables are used to communicate information to the logic components PD and 
PA. The efficiency variable EFF is defined as the ratio of output power to 
input power except when PI = 0. In this case the old EFF value is used, but in 
any case EFF = 0 must be avoided since this would communicate a zero efficiency 
to a logic device which would then generate an infinite request. Observe that 
EF2 and PM2 represent the joint efficiency and maximum power at the output port 

as a consequence of the rated generator power and computed input/output effi- 
ciency. 
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storage devices have in addition to the above, certain conventions to conmuni- 

cate with the logic components. An input parameter REl for port 1 request is 

used to initiate power discharge from storage. An output variable RE2 for port 

2 request is used to communicate a maximum charge rate request and is usually 
computed by 


RE2 = MIN (MPl, RAP)/EF1 

where MPl and EFl are the input maximum power and input product efficiency and 
RAP denotes the maximum storage charging rate. A priority interrupt INT should 
also be defined so that INT = 1. when storage is empty or at a minimum, INT = 0. 
If no interrupt is required, and INT = -1. at full storage capacity. The 
amount of storage is normally a state variable so that the code computes the 

state derivative at each time point and lets the integrator update the state at 
each time point. 


6.2 FI LOAD PROGRAM 


In addition to merging the subroutine representing the new standard component 
into the component library, descriptions of the inputs, outputs, and tables 
required by the new component must be added to the permanent file WMPF. These 
lists are used by the Model Generation program to direct the connection of 

component inputs and outputs. The program FILOAD is provided to perform any of 
the following tasks: 

1. Add new input, output, or table name lists. 

2. Replace existing input, output or table name lists. 

3. Remove all name lists for specified components. 

4. Dump contents of WMPF file onto TAPE9 in input format. 


6.2.1 FILOAD Program Command*; 

The FILOAD program will recognize the following commands. 
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LIST STANDARD COMPONENTS 


The LIST STANDARD COMPONENTS comnand causes th« „ 

output, and table lists for all rnmn P>"ogram to print the input, 

IT this co-and Is not gWe„ t he 2 ' 

name of the new components being added '"J^heTile!' ^ 

PURGE 

The PURGE command can be used tn 

pijppr . . Gmove a component from the WMPF fUa tu 

PURbc command is folowed by the names of 

command and the component names must h '"Po^ents to be purged. The 

c^ellmiters; 1-e. ,[] three or rn'e blanl f 

or right parentheses. ’ * equal sign, [()] left 


Example 6.3: PURGE = CM, TB, OB 
This coninand would remove all lists for 


name list file. 


the CM, TB, and OB components from the 


SYMBOL 


The SYMBOL coninand may be used to designate thP t 

appear for each standard component in tL H ^ 

diagram. The SYMBOL co.and is folio Jd J tirn" T" 

followed by a symbol number. The symbol numb components eaci 

are shown in Figure 6.2-1. The SYMBOL ro a symbols 

numbers are separated by standard delimiterr"" ’ 

Example: ^TMBOL. CO - loo. SH = 200. TO = 300. DC - 40D 

If a symbol number is not specified for a 

square box will be used. of”Ponent, the default symbol of a 
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STANDARD SCHEMATIC SYMBOLS 


14 


♦ 

♦ 

*! 

* 

♦ 

* 

♦ 

** 


I 

CO * 

15 ♦ 

♦ 

* 

* 


SYMBOL = 100 


16 


OQQQQQQQ 
.0 Q 

Q OC Q 

Q 17 Q 

Q Q 

QQQQQOOQ 


18 


SYMBOL = 400 


24 


25 


26 


27 


28 


34 


** 

* * 

* SK ♦ 

* 35 ♦ 

* * 


36 


SYMBOL = 200 


■k ***** * * jt* 
* * 

* ME * 

* 37 * 

* * 
********** 


38 


SYMBOL = ANY OTHER NUMBER 


44 


54 


45 


* 

* TU 

* 55 


** 

* 

* 

* 

* 

* 

* 

* 

* 

»* 


46 


56 


SYMBOL = 300 


47 


57 


48 


58 


64 


65 


66 


67 


68 
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FIGURE 6.2-1 LIST OF STANDARD COMPONENT SYMBOLS 


*1 > 


DUMP FILE 



The DUMP FILE cowand causes the FILOAD program to dump the contents of the 
MMPF file onto TAPED, in the input format of the FILOAD program. Thus for each 
standard component, a list of inputs, outputs, and tables will be produced. 
This data will be preceded by the command NEW FILE described below. This file 
may be edited to modify the input, output or tables description of any existing 
standard component or to derive a new standard component description from an 
existing one. The results of such an editing wouldjthen serve as input data to 
a subsequent run of the FILOAD program. Unless it is intended to purge the 
WMPF file and start anew, the NEW FILE coimiand at the beginning of TAPED should 
be removed before the subsequent run of the FILOAD program. 


NEW FILE 


The NEW FILE command; instructs the FILOAD program to construct a new WMPF file 
This command must occur as the first card in a set of data describing a 

completely new WMPF file. Any previous components that may have existed on the 
WMPF file are purged by this command. 


FILE NAME 


This cotimand is used to Toad the file name to be associated with the WMPF file 
The current WMPF file name is SIMWEST II. This command is used as: 

FILE NAME = SIMWEST II 


6 . 2.2 Input Name Lists 


Input name lists are identified by the letters INPT following the component 
name. Thus, the input name list for a component DC would be introduced with 

the phrase, DCINPT. This must be followed by a phrase that contains the number 
of names in the input name list. 
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The input names are contained on the following data cards, 8 names per card. 
The names must be left adjusted in fields, 10 characters wide. The names are 
placed in Columns 1 through 3 of each field. Column 9 of each field can be used 
to indicate a port number which can be attached to the name to distinguish it 
from other quantities of the same name that occur with the given component. 
Thus, to indicate that temperature, T, is an input to port 1, the input name 
list would be: 

Column: 123456789 10 

Item: T 1 

This quantity would then be referred to as Tl. 

Example 6.4: 

SWINPT = 3 

IN l.IN 2.CNT 

(The dots are used here to indicate blank spaces and would not be included in 
an actual data card). 

These two data cards would indicate that the component SW had 3 input quantity 
names. A quantity IN appears at port 1, and is to be referred to as INI. A 
quantity IN appears at port 2, and is to be referred to as IN2. A third input 
quantity CNT has no port designation. Note that if a port number is to be 
attached to a quantity name, that name should contain no more than 2 charac- 
ters. 

The sequence of names in the input name list must match the sequence of input 
arguments in the component call sequence. 
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6*2.3 Output Name List;; 

1T‘ Z ’1'"' the letters OUTP following the con,ponent 

T h nr ^ ’"‘™^uced With 

of ne!ir'’ r ^ "“"ber 

Of names in the output name list. 

The output names are contained on the following data cards, 8 names per card. 

olLZ* rr ®'^J“sTed In fields 10 characters wide. The names are 

placed ,n Columns 1 through 3 of each field. Column 9 of each field can be used 

ojtroduce a port number which can be attached to the name to distinguish it 
other quantitves of the same name that occur with the given component. If 
he output quantity is a state variable, this must be Indicated by placing S In 

Dorr? th° r ^ ^ variable output quantity at 

port 2 , the output name list would be: 

Column: 1 2 3 4 5 6 7 8 9 10 

Item: P 2 S 

This quantity would then be referred to as P2. 

Example 6.5: 


TZOUTP = 3 

X.......1SX. 


.2S0UT 


an actual data card). 

These two data cards would Indicate that the component TZ had 3 output quantity 

e eZd ^ variable, Zllll b: 

2. It will be referred to as X2. The quantity OUT is an output variable, not a 
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state variable, and does not have a port number associated with it. Note, that 
if a port number is to be attached to a quantity name that name should contain 
no more than 2 characters. These two characters plus the port number will 
reach the maximum number of 3 characters in a quantity name. 

The* sequence of names in the output name list must match the sequence of output 
arguments in the component call sequence. However, whereas three arguments are 
provided for each state in the subroutine call sequence, only one name is 
included in the output name list. 

6.2.4 Table Name Lists 

Table name lists are identified by the letters TABS, following the component 
name. Thus, the table name list for a component CM would be introduced with 
the phrase CMTABS. This must be followed by a phrase containing the number of 
tables in the table name list^ The table names are contained in the following 
cards, one table name per card . The name is located in the first 3 columns of 
the card. It must be accompanied by the maximum dimension that is to be 
provided for this table. This number must be given in columns 4 through 10 and 
should have a decimal point given. For single independent variable tables this 
number must be negative. For tables with two independent variables, this 
number must be positive. 

Example: 

CMTABS =3 
TAM 53. 

TAB 43. 

TCM -27. 

These four data cards would indicate that the component CM had 3 tables. The 
first two tables TAM and TAB have two independent variables each, as indicated 
by the positive dimension numbers. The table TCM has only one independent 
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variable, as Indicated by the negative dimension number. 53. 43. and 27 words 

Of storage are to be provided for tables TAM. TAB. and TCM respect ve y 
maximum storage is relatpH l Kci-nveiy. me 

NZ. independent :ar7aMes br 


MAX = 3 + NX+NZ+NX*NZ for 
MAX = 3 + 2*NX for tables 


tables with two independent variables 
with one independent variable 
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7.0 LIBRARY COMPONENT DESCRIPTIONS 


This section describes the mathematical algorithms and input/output structure 
of the SIMWEST library components. Each component writeup contains a brief 
textual description of the algorithms, a mathematical expression summarizing 
its function, a list of input and output variables, a description of the 
calculation sequence and logic used in the model, and the model code. A figure 
is provided which shows the nominal input and output connections, and the state 
variables of each component. 


There are a number of features and conventions in the component descriptions 
which require some elaboration. These are briefly summarized below. 

7a. INPUT/OUTPUT NAME LISTS 

A potentially confusing factor is the way port numbers on input parameters and 
output variables are designated. On the model generation input cards the name 
of the physical quantity and the port number are separated by a comma. For 
example, the power variable with port designation 1 is denoted P,l. To empha- 
size the distinction between the physical quantities and port numbers they are 
listed separately in the name lists of the component writeups. For example, 
P 1 in the name list denote:^ the power variable (or parameter) with port 
designation 1 even though in other parts of the text it may simply be denoted 
PI. 

Another convention in the name lists is that the alphabetic symbol 'O' is shown 
as 0 to distinguish this symbol from a zero. Elsewhere in the text symbols 
such as V0 may be referred to as VO. 

7b. INPUT PARAMETER SPECIFICATION 

All input parameters are associated with default values. Many of the parame- 
ters have default values denoted in the parameter description by the letter D. 
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For example, in the Battery component the default value for terminal resis- 
tance, RT, is D = .001 ohms. All input parameters for which a default value is 
not so specified have a default value of .99999. Default values are intended 
to enable users to put models together quickly by specifying a minimum of input 
data. Users need only specify detailed parameter values for those components 
of current interest. One must be careful using this approach since the opera- 
ting characteristics and efficiency of a lOkw rated device may, for example, be 
quite different than for a lOOkw device. 

Any user-specified input parameter can be driven by one or two dimension table 
lookups using the FU and FV components. This enables the user to build more 
detailed models using time or other output variables to drive the tables. For 
example, if one needs to specify cost of peak load generation to the utility 
component as a function of peak load request, then one adds FU as an input to UT 
and specifies load request as an input connection to FU. The desired function 
table for FU is specified in the simulation input. 

It may be noted that not all of the components have maintenance or operating 
cost inputs. Thus, whenever these costs are important, one can aggregate such 
costs and input lumped costs to the model. For example, the maintenance cost 
of the hydro storage system may include maintenance costs for the pump and 
turbine. 

7c. COMPONENT LOGIC 

In constructing SIMWEST components, we have adopted several conventions: to aid 
communication with the logic components. All physical components distributing 
power are given two input parameters EF and MP (port 1) and two output varia- 
bles EF and MP (port 2). The output EF is the product efficiency of all 
components in the distribution subsystem up to and including the given compo- 
nent, and MP is the maximum power deliverable at the output of the component. 
Each storage component has in addition a power request input denoted RE 
(port 1), a power request output denoted RE (port 2), and a priority interrupt 
flag denoted INT. 
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Figure 7.0 shows the logic and physical variable connections for power flow in 
and out of a hydro reservoir. Power flows from the power divider to the pump at 
a rate not to exceed the request RE from HS. The HS request is computed by 
dividing the input maximum power by the input (or pump) efficiency EF. Hence, 
the maximum power flowing to HS cannot exceed RE*EF = MP. Similarly, the input 
request to HS is computed by the PA component so as not to exceed the maximum 
input power MP divided by EF (turbine efficiency). Hence, the power that flows 
to PA cannot exceed RE*EF = input maximum power. 

When the hydro reservoir is empty, the interrupt flag is turned on and the 

priority sequence is changed so that the reservoir is given access to power 
flowing into the divider. 

7d. UNITS 

Most of the SIMWEST components are coded in English units. However, SI or 
metric units were used to code the solar-photovoltaic components: ED, SO, FP, 
FO, and PV. This is generally not a problem since there are at most only a few 
interconnection variables between the solar-photovoltaic generation components 
and other SIMWEST components, and units conversions are easily handled using an 

MA arithmetic component. (See for example the Fresnel Lens Model, Section 
9.3.) 
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FIGURE 7.0 SAMPLE CONNECTIONS FOR 
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7.1 ADMITTANCE 




POWER (PI) 

INPUT EFFICIENCY 
MAX. INPUT POWER 



POWER (P2) 

OUTPUT EPPrCIENCr (EF2) 
MAX, OUTPUT POWER (MP2) 


The admittance model can be used to model transmission lines, transformers, 
capacitors or Impedance power flows. A primary assumption is that the re- 
active parameters dominate the real parameters so that power transfer angle 
is solely based on reactive values, and power losses are based on the real 
admittance parameters and on power angle. The equation for power loss is 
based upon the following model: 

I 


1 1 

FIGURE 7.1 ADMITTANCE NETWORK MODEL 

/ll\ ^ /G1 + jBl GM + jBM\ /Vl\ 

\ 12/ ” \GM + jBM G2 + jB2/ \V2/ 

Where the reactive parameters B^ and do not enter into the power loss 
calculations. 

s •' - 

i; 
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Jnbuts 

Parameter/Porf 

G1,GM,G2 

m 

V0 

P 1 

EF 1 

MP 1 

CC 


Descr ipt 

Real admittance parameters ^ 
Reactive admittance parameter 
Rated voltage magnitude 
Input power 

Input product efficiency 
Maximum input power 
Capi tal cost/year 


Outputs 
Variable/Pnrt 
P 2 

PL 
PA 

EF 2 

MP 2 


Output power 
Power loss 
Power angle 

Output product effici^sncy 
Maximum output power 


JiaLls 

mho 
mho 
vol ts 
kw 


kw 

$ 


kw 

kw 

deg 

kw 


see next page for User Input to Model Transmission lines. Transformers 
and Impedances. 
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Transir^i «l}gion Lin e lnpi|| ; 

j 

G1 = G2 = g-sa ! 

GM = 

BM = 1/ (0)5H.^(-£) 

Where g - line conductance per unit length 
I = length of I Ine 
W = frequency in radians/sec = 120TT 
L - line inductance per unit length 

Transfo rmer Innnt - 

G1 = G2 = GM =0 
BM = 1/X^th 

where X = reactance in ohms 
h = turns ratio 

I (No power loss modeled with a transformer) 
iiOE edance Input ; ( Inc I udes capacitors and inductors) 
G1 = G2 = -GM = R/ (R^+X^) 

BM = X/(R^+X^) 

where R = resistance in ohms 
X = reactance in ohms 
= /WL for an inductance l\ 

\ WC ® capacitance C/ 
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Liculati, 


Luence 


If P 1<0 P2 = PL = PA = 0 and Return 

1) Compute power angle 

If Pl* 1000 >E«dV 92 C0se= 0 and »rite O.AGNOSTM 
0 = -SIN (Pl-5tlOOO/BM^<V0^) 

PA = e-j^ieo/TT 

® ^ - (Pl-«-lOOO/BM-5A/0^)^ 

2) Compute power loss and output power 
PL = V0^t(Gl+G2+2^«GM^0S 0J/1OOO 
P2 = Pi - PL 
EFF = P2/P1 

I f P2 >0 go to 3 ) 
write DIAGNOSTIC 
EFF =1. 

3) Efficiency and maximum output power 
EF2 = EFl^tEFF 

ffP2 = MIN(MP1,|bAA I -^f-VU^/lGOO) EFF 


4) Compute costs 


AD 


• 4 ..* 
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o o o o r j u o o o o a o u u o u o a o o u o ij o o 


G*D 


SUBftOUTlME AaCP2tPLtPA«EF2tMP2t 


AD 

GlfGM,G2,BM,V0f P1,EF1,MPI,CC) 


PURPOSE MODEL OF TRAMSMISSION LINESrTRANSFORMERSt 
CAPACITORS* OR IMPEDANCE POWER LOSS 

METHOD OUTPUT POWER AND POWER LOSS COMPUTED FROM 
INPUT POWER 

WRITTEN av Y.iC.CHAN VERSION 1* JULY, 1977 


CALL SEQUENCE 
OUTPUTS 


P2 -OUTPUT POWER, KW 
PL -POWER LOSS,KW 
PA -POWER ANGLE, DEG 
BF2 -OUTPUT PRODUCT EFFICIENCY 
MP2 -MAXIMUM OUTPUT POWER,KW 
INPUTS 

GI,GM,G2 -REAL ADMITTANCE PARAMETERS, MHO 

BM -REACTIVE ADMITTANCE PARAMETERS (.NE.O.),MHD 

VO -RATED VOLTAGE MAGNITUDE, VOLTS 

PI -INPUT POWER, KW 

EFl -INPUT PRODUCT EFFICIENCY 

MPl -MAXIMUM INPUT POWER, KW 

CC -CAPITAL COST/YEAR, $ 


C 


c 

C 

C 


C 


COMMON /CIMPL/IMPL,ICNT/CTIME/TIME/CSiMUL/0UMf7) ,TMAX 
X ! /COST/CCI 
REAL MP2,MP1 

i 

P2=0- 

TMAX1=TMAX». 99999 
1F(P1.GT.0. )GO TO 10 
Pi=0. 

PL=0. 

PA=0. 

MP2=MPl 
EF2=EF1 
GO TO 400 


COMPUTE POWER ANGLE 

10 RR=Pl*lOOO./(BM*VO*VO) 

RR2=RR*RR 

IFIRR2.LE.1. )G0 TO 100 
PA=-90. 

RRC=0. 

IFiIMPL.EQ.2>WRITE(6,i08)Pl,BM,V0 
106 FORMAT! IH0,13H INPUT POWtR ,F12.3,33H TOO HIGH 
XNCE ,F12.3,19H AND RATED VOLTAGE * FI 2. 3) 

IFI IMPL .EQ.2 ) ICNT=ICNT +1 
GO TO 200 

100 THETA=-ASIN(RR) 

PA-THETA*180./3.14159 

RRC=SQRT(1.-RR2) 


RELATIVE 


TO AOMITTA 
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o o 


COMPUTE POWER LOSS AMO OUTPUT POWER 
200 PL=VQ*VO*(&1+&2^2.4GM^RRC)/1000. 

P2=P 1-PL 
EFF=P2/P1 

IFCP2.GE,0.)GD TO 300 
P2=0. 

EFF=l. 

IF(IHP4..ME.2)G0 10 300 
WR1T£(6,303) PL»P1 

30b F0RHAT(1H0,24H AUNITTANCE PDHER LOSS .F12.3.21H EXCEEDS INPUT POKE 
AK f ri.Z» 3 I 
ICMT=ICMT*1 
C 

300 EF2=£F1 

IF(P2.GT.0.)EF2=EF1*EFF 

iF(P2.GT«0, )MP2=AMINl(MPlf ABS(BM)*V0*V0/1000, l^EFF 

w 

AOO IFdMPL.LE.DRETURM 

IF (TIME. LI. TMAXl) RETURN 
CC1=CCI+CC 
C 

RETURN 

END 





% 

m '■ 


no 
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7.2 TEST FUNCTION GENERATOR 



Inputs 

Parameter/p^rt 

COD 


Cl 

C2 

C3 

C4 

C5 



j>escript?ni^ 

Specifies which analytic function is calcu- 

leted. (See equations below for use of these 
inputs) 


Outputs 
Variable/ Port 

Output variable 


Ca I cu I a t i on Seguenre 

COD = 1 F0 = Cl + C2^IN(C3*T + C4) 

2 F0 = Cl + C2^<C0S(C3*T + C4) 

3 F0 = Cl + exp(-C5^«T) SlN{C3^fT + C4) 

4 F0 = Cl + exp(-C5-ltT) -5^ C0S(C3*T + C4) 

5 F0 = Cl + C2^T 

6 F0 = Cl + C2*exp (-C3*T) 

where: T = TIME 
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rionoonooonnriorioonnnnononnoorio 


CAF 


SUBROUTINE AFiF0,CDD,Cl,C2,C3,C4,C3) 

PURPOSE -TO SIMULATE ANALYTICAL FUNCTIONS 

METHOD - SEE CODING 

iiRITTEN BY - ADAM LLOYD LATEST REVISION FEB 76 

LIMITATIONS - NONE 



IN PUT/ OUTPUT LIST 


FO 

OUTPUT VARIABLE ANY 

OUTPUT 

VAR 

COD 

CODE IDENTIFYING ANALYTICAL FUNCTION 

INPUT 

PARAM 


eODE= 

F0 = 




i 

Cl-»-C2^SIN(C3*TIM£+C4) 




2 

C1+C2«C0S(C3*TIME+C4) 




i 

C1+C2*EXP(-C5*TIME)*SIN(C3*TIME+C4) 




4 

C1+C2*EXP ( -C5* TIME )=*COS { C3*TIME+C4 ) 





Cl+C2*TIME 




6 

C1+C2*EXP(-C5*TIME) 



Cl 

CONSTANT 

INPUTS FOR ABOVE EONS 

INPUT 

PARAM 

C2 

CONSTANT 

INPUTS FOR ABOVE EONS 

INPUT 

PARAM 

C3 

CONSTANT 

INPUTS FOR ABOVE EONS 

INPUT 

PARAM - n 

C4 I 

CONSTANT 

INPUTS FOR ABOVE EONS 

INPUT 

PARAM * J 

C5 

CONSTANT 

INPUTS FOR ABOVE EONS 

INPUT 

PARAM 


COMMON/CTIME/TIME 

NCOD£=COD 

GO TU ( IO,20t30,40»50,60)»NCODE 
10 F0=C1+C2=*SIN(C3»TIME+C4) 

SO TO 100 

20 F0=C1+C2*C0S(C3*TIME+C4) 

GO TO iOO 

30 FO=C 1+C l*tXP ( -C3+TIME ) *S IN ( C34TIM E+C4 ) 

GO TO 100 

40 F0=Ci+C2*EXP(-C5*TIME)*C0S(C3*TIME+C41 
GO TO 100 

30 FQ=C1+C2*TIME 
GO TO 100 

60 F0=C1+C2*EXP(-C5*TIME) 

IOO RETURN 
END 


^ f 
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7.3 BATTERY 



POWER (PI) 

POWER REQUEST (REl) 
INPUT EFFICIENCY (EFl) 
MAX. INPUT POWER (MPl) 



POWER (P2) 

MAX. OUTPUT POWER (MP2) 
INTERRUPT FLAG (INT) 
POWER REQUEST (RE2) 


The battery model is based on the circuit diagram shown below. Current flow 
is determined by the output power request minus input power. Battery leakage 
is proportional to stored energy. Priority Interrupt logic is activated when 
a minimum or maximum capacity level Is attained. 


RL 


1 1 

-1 

I 



t 

± VO 

1( 

VT 

1 1 

CB 


FIGURE 7.3 

BATTERY CIRCUIT DIAGRAM 


Basic Equations 

The output power P2, stored energy PE, terminal current I, and capacitor 
voltage VC is computed using the following equations; 

P2 = REl 

PE = (VC^+25tVO«^VC)^fCB/7.2XlO^ 

<P2-Pl)^fl000 = (V^VC)I - l^-»RT 
PE = -{|+VC/RL)(VC+V0)/1OOO 
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Inputs 

Parameter/Port 

Description 

Units 

p 

1 

Input power 

kw 

V0 


Internal voltage 

volts 

RT* 

1 


Terminal resistance (D = 0.001) 

ohms 

CB-^ 

m 1 


Battery capacitance (D = 2.88x10®) 

farads 

RL 


Leakage resistance (D = 0.05) 

ohms 

RAP 


Rated input power 

kw 

EF 

1 

Input product efficiency 


MP 

1 

Maximum input power 

kw 

El 


Maximum energy storage 

kwh 

RE 

1 

Power request 

kw 

EDE 


Energy deadband for priority resequencing 

kwh 

DT 


Down time for priority resequencing 

h 

CC 


Capital cost/year 

$ 

CM 


Maintenance cost/year 

$ 

Outputs 
Variable/Port 
P 2 

Output power (=RE1) 

kw 

PE 


Stored energy (state of charge) 

kwh 

I 

VC 


Terminal current (+=out,-=in) 
Capacitor voltage 

amps 

volts 

VT 


Terminal voltage 

volts 

PL 


Power loss 

kw 

T0 


Time when battery was discharged 

h 

MP 

2 

Maximum output power 

kw 

INT 


Priority interrupt flag 


RE 

2 

Maximum charging rate request 

kw 


D 

1 

★ 


Default values supplied 

Battery leakage time constant in hours = CB*RL/3600 
at f®-- specifying battery efficiency 


-n it- 
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Description 
Maximum stored energy 
Sum of charging energy 
Sum of discharging energy 

■Calculation Segupnr.P 

1) Compute VC 

VC = V7.2XlO®-!tPE/CB + - V0 

2) Solve for terminal current I 

If (P2-PI )-5ti000 > (VC+V0)^/4'JfRT, GO TO 2' 

I = (VC+V0) - V(V C-tV0)^ - 4*RT^(P2-P1)^10Q0 

Go to 3) 

2) I = ( VC+VO ) /2-5^T and write DIAGNOSTIC 

3) Compute VT 

VT = VC+V0-|-5fRT 

4) Potential energy balance and power loss 

PE = -{ l+VC/RL) {VC+V0)/1OOO. 

PL = (|-2^T + VC^/RU/IOOO. 

5) Maximum charging and discharging rates 

RE2 = MIN(MP1,RAP, (El-PE)/TINC)/EF1 

MP2 = MIN(RAP,(VC+V0)^/(4OOO^Tt, (PE-EDE)/TINC) 

TINC = Integration step size 


statistics 

Variable/Por|- 

MPE 

SPC 

SPD 



Units 

kwh 

kwh 

kwh 
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BA 

gaJjUlation Sanuence Cnnt. 

6) Priority interrupt logic 

I f PE $ EDE and TO = 10®, TO = T IME 

If PE < EDE and TIAAE - TO > DT, INT = i and go to 7) 

TO ^ 10® 

If PE > 2><£DE and INT = 1 , INT - 0 
If PE > El, INT = -1 , 

If PE < El - EDE and INT = -l, INT = 0 

7) Compute Statistics and Costs 
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*** *^ *"' ^ ^ ^ ^ ^ ^ ^ o r; o o o o r> o n o o o n r> r. o o o r o o r» o o o o r» 


CBA 


BA 

iUBROUTlNt BA(P2,Ptf PfcD, IPt 1 1 , WC , VT,PL, TU,HP2 , INI ,Rfc2, MPE *SPC ,SPD . 

I PltVOfJiT.Ca.RLfRAPyEFl.MPl.ElLtRElfEDEf DT,CC,CMi 

PURPOSE aATTERY MODEL 

METHOD COMPUTE STORED ENERGY AND POWER OUTPUT AS 

FUNCTIONS OF POWER INPUT AND POWER REQUEST. 

A RESISTOR/CAPACnOR NETWORK IS USED TO 
MODEL BATTERY STORAGE, 

WRIITEN BY Y.K.CHAN VERSION It JUNE 3,1977 

CALL SEQUENCE 
OUTPUTS 

P2 -OUTPUT POWER, KW 
PE -STORED ENERGY <STAT£),KWH 
PEO -STORED ENERGY DERIVATIVE 
iPb -INTEGRATOR CONTROL 
II -TERMINAL CURRENT ( +=OUT, -=1N) , AMPS 
VC -CAPACITOR VOLTAGE, VOLTS 
VT -TERMINAL VOLTAGE, VOLTS 
PL -POWER LOSS, KW 

TO TIME WHEN BATTERY WAS DISCHARGED, HR 
MP2 -MAXIMUM OUTPUT POWER, KW 
INT -PRIORITY INTERRUPT FLAG 
RE2 -MAXIMUM CHARGING RATE REQUEST, KW 
STATISIICS 

SPC -SUM OF CHARGING ENERGY, KWH 
MPE -MAXIMUM STORED ENERGY, KWH 
! SPD -SUM OF DISCHARGING ENERGY, KHW 

INPUTS 

PI -INPUT POWER, KW 
VO -INTERNAL VOLTAGE, VOLTS 
RT -TERMINAL RESISTANCE, OHMS 
CB -BATTERY CAPACITANCE, FARADS 
RL -LEAKAGE RESISIANCE, OHMS 
RAP -RATED INPUT POWER, KW 
EFl -INPUT PRODUCT EFFICIENCY 
MPl -MAXIMUM input POWER, KW 
El -MAXIMUM ENERGY STORAGE, KWH 
REl -POWER REQUEST, KW 

EDE -ENERGY DEAOBAND FOR PRIORITY RESEQUEMC ING, KWH 
OT -DOWNTIME FOR PRIORITY RESEQUENCING, HR 
CC -CAPITAL COST/YEAR, $ 

CM -MAINTENANCE COST/YEAR, $ 

COMMON /tiMPL/IMPL,ICNT/CTIME/TIME/CSIMUL/OUMI7» ,TMAX/COST/CCI,CMI 
RtAL I, MP2, MPE, MPl, INT 
TINC1=DUM(7)*.5 
C 

IFfIMPL.GT.O) GO TO 100 
1F(RT.EQ..99999)RT-.001 
IFICa.EQ,. 99999 )Cb=2.88E6 
IF(RL.EQ..99999)RL=.03 
T0=10000i>0. 

INT=0 

TMAX l=TMAX* . 99999 


BCS 40262-1 


117 



tlNC=OUMt?l 

MPE=0. 

SPC=0. 

SPD^O. 

C 

C CAPACITOR VOLTAGE 

C 

100 VC-SQRT(CPE*7.2£6/CBI+V0*V0) - VO 

0 

C TERMINAL CURRENT 

C 

P2=R£1 

AA= ( P2~P 1 ) *4000 .*RT 

d=VC+VO 

fc2.=B 

lFiAA.GT.B2) GO TO 200 
I=B-SQRT(62-AA) 

I=I/(2.*RT) 

GO TO 300 
C 

200 1=3/(2.*RT) 

IF( lMPL.EQ.2)WRlTE(6f 208)P2 

208 FORMAT i IH0.15H POWER REQUEST tFl2.3f50H EXCEEDS BATTERY CAPABILITY 
1. CHECK VCfVO, AND RT. ) 

IF ( IMPL.EQ.2)ICNT=1CNT4^1 
C 

C TERMINAL VOLTAGE 

C 

300 VT=VC+VO-I*RT 
C 

C POTENTIAL ENERGY BALANCE AND ENERGY LOSS 

C 

IFllPE.NE.O) PED=-( 1+ VC/RL)»iVC+VO)/1000. 

PL=( I^I^RT+VC^VC/RD/IOOO. 

C 

c MAXIMUM CHARGING AND DISCHARGING RATES 

C 

AP1=AMAX1(0.* lEl-PEI/TiNC) 

R£2=AMIN1(MP1,RAP,AP1) 

RE2=RE2/EF1 

AP2= AMAX 1 iO. , i PE-EDE ) /TINC ) 

NP2^AHIN1(RAP»B2/(4000.*RT),AP2) 

0 

c PRIORITY INTERRUPT 

C 

C=£1-ED£ 

E02=EDE+E0E 

IF( PE.GT.EDtiGO TO 401 
IFIT0-GT.99S>994- )TO=TIME 
WAIT-TIME-TO 
IF IWAiT.GT.OT)lNT=l 
GO TO 400 
401 TU=100GOOO 

IFIPE.LE.E02)G0 TO 400 
IFiPE.GT.EDGO TO 403 
IFIPE.GT.OGO TO 400 
INT=0 
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non 


GO TO 400 
AO 3 INT=-l 
AOO CONTINUE 

ifcimpl.le.dreturn 

STATISTICS 

MP£=AHAXl(MPL,Hi;) 
SPC=SPC-»-T INC l*Pi 
SP0=^SP0+TINC1*P2 

IFITIME. LT.TMAXDRETURN 

CCI=CCI+CC 

CMI=CMI+CM 

RETURN 

ENO 
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7.4 BURNER 



MASS FLOW RATE (Ml) 

TEMPERATURE (T1 ) 

INPUT POWER (Pli 

MAX. INPUT POWER 
(MPl 1 

INPUT EFFICIENCT 
(EFl) 



MASS FLOW RATE (M2) 

temperature (T2) 

OUTPUT POWER (P2) 

MAX. OUTPUT POWER (MP2) 
OUTPUT EFFICIENCr CEF2) 


The burner model computes the amount of fuel required to be burned In the 
inlet airstream to raise the air temperature from the given inlet temperature 
to the specified outlet temperature. The fuel mass flow rate when integrated 
over time al lows calculation of the cost of burner fuel. 

Basic Equation 

The mass of fuel consumed, F, is computed from the equation: 

p ^ M1^’K:P^HT2-T1) 

NU^^HF 


^ % 

s ' 
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Ismi^ 

Par^amQter/Pgrf 
M 1 

CP 

T 1 

T 3 

NU 

HF 

CF 

FDM 

CB 

LE 

MOM 

EF 1 

MP 1 

P 1 

■Qutpyt.s 

Variabl6/Porf 

F 

EF 2 

MP 2 

T 2 

FD 

CCO 

CO 

M 2 

P 2 

Statistics 

FDU 


■Poser Ibt Ion 
inlet air mass flow rate 
Air heat capacity (0 = 722<lo'"®) 

Inlet air temperature 

Outlet air temperature Ispecified) ' 

Combustor efficiency (D =? 0.98 J 
Fuel heating value (0 = 5.56) 

Specific fuel cost ID = 0*094) 

Maximum allowable fuel mass flow rate ID-17800) 
Burner cost coefficient ID a 1.683) 

Burner life expectancy 

Maximum allowable air mass flow rate 10=27000) 
Input product efficiency 
Maximum input power 
Input power 


Fuel mass consumed (state) 
Output product efficiency 
Maximum output power 
Outlet air temperature 
Fuel mass flow rate 
Burner capital cost/ year 
Fuel cost 

Outlet mass flow rate (« Ml) 
Ou tpu t power 


■Units 

Ib/h 

kwh/ I b-°F 
o_ 


kwh/ I b 

$/lb 

Ib/h 

$/lb/h 

years 

Ib/h 

kw 

kw 


Maximum fuel mass flow rate 


kw 

F 

Ib/h 

$ 

$ 

Ib/h 

kw 


Ib/h 


P - Default values supplied 
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The calculation sequence and default values are based on a burner sized using 
first principles to maintain the outlet temperature at 600°F assuming an inlet 
temperature of 120°F and a mass flowrate of 2.7x10^ Ib/h. These conditions 
represent the extreme conditions expected and should satisfy all burner require, 
ments. No. 6 fuel oil is assumed to be the fuel type. Cost and heating values 
were obtained from References 1 and 2. Cost estimates for the burner were 
estimated from the results of Reference 1. 


Calculation Seguenr.p 


1) Capital Cost 

CC0 = CB^«MDM/LE 


2) Maximum air mass flow rate allowed 

If Ml = 0 set EFF = l, MP2 = MPl and go to |3) 

/ NU^I-HF^fFDM 


1 ^T3-T1 ) 
If T1 > T3, MlM = MDM 


, MDM j 


3) Efficiency and maximum discharge power 

EFF = 1 + Ml.^(CRHT2-Tl)/Pl ([f Pi>0) 

EF2 = EFl^^FF 

MP2 = min {MPl^'fEFF, Pi * MlM/Ml} (If Ml > 0) 
P2 = Pl^^FF 


1. "Prel imlnary Feasibil ity Evaluation of Compressed Air Storage Power Sys- 
tems/' United Technologies AER 74-00242, December 1976. 

lf§ Genera tigq _ p , nd Babcock and Wilcox, New York, NY, 1972. 
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BN 

£fl.lcUlatton Segnor^^p 


4) Fuel mass flow rafe 
NU^fHF 

T2 = AAAXITl, T3) 

I f AAl > A/llM write DIAGNOSTIC 

5) Compute Statistics and Costs 
CO = CF ■If F 
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CBN 


L 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

t 

c 

c 

c 

c 

c 




^SUBROUriME ®^^^’“p-*f'EF2.HP2.T3^D,CC,CQ.H2,P2.FDO.Hl,CP.^ 
tiMUtHP,CF,FOM,CB,Lfcf MOMf EF1,MPI,PU 

PURPOSE COMPUTE FUEL REQUIRED TD RAISE THE AIRSTREAM 

TEMPERATURE A GIVEN INCREMENT. 

METHOD INTEGRATE THE FUEL MASS FLOW RATE OVER TIME 

WRITTEN BY F.C. MAHtiNY VPftqrnM i 

V)=RSION ly MARCH 2Z 1977 

CALL SEQUENCE 
OUTPUTS 

f POEL MASS CONSUMED SINCE TIME=0 (STATE I 1 R 
UF - FUEL MASS DERIVATIVE lilATEI, LB 

IF - STA1US INDICATOR 

EFE - OUTPUT PRODUCT EFFICIENCY 

MP2. - MAXIMUM OUTPUT POWER, XW 

T3 - OUTLET AIR TEMPERATURE, DEG F 

FD - FUEL MASS FLOW RATE, LB/HR 

EC - bURNER CAPITAL COST/YEAR, $ 

CO - FUEL COST, $ 

M2 - OUTLET MASS FLOW RATE, LB/HR 
P2 - OUTPUT POWER. KW 

FDU - OBSERVED MAXIMUM FUEL MASS FLUM RATE, LB/HR 


'i 


INPUTS 

Ml 

dp 

ti 

li2 

NU 

HF 

CF 

FDM 

ca 

LE 

MOM 

EFl 

MPi 

PI 


- INLET AIR MASS FLOW RATE, LB/HR 

- AIR HEAT CAPACITY, KWH/LB-OEG F 
INLET AIR TEMPERATURE, DEG F 

- OUTLET AIR TEMPERATURE, DEG F 

- COMBUSTER EFFICIENCY 

- FUEL HcATING VALUE, KWH/LB-OEG F 

- SPECIFIC FUEL COST 

- MAXIMUM ALLOWABLE FUEL MASS FLOW RATE. 

- BURNER COST COEFFICIENT ’ 

- burner LIFE EXPECTANCY, YEARS 

- MAXIMUM ALLOWABLE AIR MASS FLOW RATE i m/uo 

- INPUT PRODUCT EFFICIENCY * 

- MAXIMUM INPUT POWER, KW 

- INPUT POWER, KW 




/CSIMUL/DUM , 7 . ,TM*X 

R^AL MP2,M2,M1,NU, LE,M0M,MPI,H1M 


IF( IMPL.GT.O) GO TQ XOO 
IMlAXl =TMAX+. 99999 


IF|(CP .EQ. 
IFliNU .£Q. 

ifkhf .eq. 

IF(CF .EC. 

ifcfdm.eq. 
IFCCa .EQ. 
if (MON. EG. 


.99999) CP = 
.99999) NU = 
.99999) HF = 
-99999) CF = 


72.0E-6 
0.96 
5.56 
0.094 


.99999) FDM-1.78E-E4 
.99999) CB =1.683 
•99999) MDM=2.7E+4 
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c 

c 

c 


c 

c 

c 

c 


FOU =0.0 
CC =CB*MDM/LE 
100 EFF=1.0 

IFCMl.EQ.O.OI&O TO 200 
MlM=MOM 

IFiri.GT.TZ) to TO 200 

MAXIMUM ALLOWABLE AIR FLOW RATE 

M1M=AMIM1(NU*HF*F0M/CP/CT2-TI),MDM) 

IFlMi.GT.MlM) GO TU 1000 
300 CONTINUE 

IF,Pl.E6.o:o}Gc"?0^2r 




EFF = l-0+Ml*CP*(T£-Tl)/Pi 


C 

c 

f' 

c 


c 

c 


200 EF2 = eF1*EFF 

MP2=MPI 

P2=PliEFF^"* 

FUEL FLOW RATE 

'^^♦C.P*CT2-T1>/NU/hF 
IFCTl .v»T.l2) 0F=0.0 
FO=QF 


C 

C 

C 

C 


COSTS 

CO = CF»F 
T3=AMAXUTI,T2) 

M2=M1 

STATISTICS 

IFUMPL.LE.U RETURN 

FDU = AMAXK FD,FOU) 

IFITIME.LT.TMAXll RETURN 
CCI= CCl + CC 
COP= COP + CO 
RETURN 

m 

1000 IF(1MPL-EQ.2)WRIT£(6,1010) Ml.MlH 

1010 FORMATClHO,28HBii INLET AIR MASS FLOW RATE ,F12 3 

GO TC 300 
END 
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CM 

7.5 COST MONITOR^ 


SYSTEM COST INPUTS 
f CAPITAL COSTS 
• MAINTENANCE COSTS 


UTILITY INPUTS 

• UTILITY ENERGY DELIVERED 

• VALUE OF UTILITY ENERGY 

• SURPLUS ENERGY SUPPLIED 


• OPERATING COSTS 



COST PER KWH 

COST PER VALUE DELIVERED 
PERCENT OF LOAD SUPPLIED 


• SOLAR ENERGY DELIVERED 

• VALUE OF ENERGY DELIVERED 

• TOTAL LOAD DEMAND 



This component sums the capital, operating and maintenance costs of all 
system components. The total yearly cost TC is then computed using a fixed 
charge rate factor which represents depreciation, cost of money, insurance 
and taxes. 


The total energy delivered to the loads plus surplus energy is then summed 
and yearly energy delivered TED computed. Cost of operation in mills is 

This component must be placed last in the model generation input file 
i.e., just prior to the END OF MODEL command. 
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then given by 



System cost/kwh = TC * 1000. /TED 

Similarly, the value of energy delivered to the loads is summed minus the 
utility energy value and including the value of surplus energy, and fac- 
tored to give yearly energy value delivered VED. Energy value in mills is 
given by 

Load value/kwh = VED * 1000. /TED. 

Cost per value delivered is the ratio of the above two equations. 

In addition to the above cost calculations, percent of total load supplied 
by storage PCW, percent of load supplied by utilities PCU, and percent of 
energy surplused to the utilities PCS is computed. The total cost in mills 
to meet the load is then given by 

Load cost/kwh = (system cost/kwh * PCW + utility cost/kwh * PCU)/100., 

where 

Utility cost/kwh = value of utility energy * 1000. /utility energy 

delivered. 


Inputs 



Parameter/Port 

Description 

Units 

CR 

Capital charge rate 

%/year 

LE 

System life expectancy 

years 
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CM 


Common Block 



Inputs 

Description 

Uni 

CC 

Total yearly capital costs 

$ 

CM 

Total yearly maintenance costs 

$ 

CO 

Operating and fuel costs over TMAX 

$ 

TMAX 

Simulation time interval 

hr 

VDE 

Value of energy delivered (including surplus) 

$ 

TDE 

Solar energy delivered (including surplus) 

kwh 

TLD 

Total load demand 

kwh 

UTV 

Value of utility energy 

$ 

UTD 

Utility energy supplied 

kwh 

SPD 

Surplus energy supplied 

kwh 

Outputs^ 




Total yearly costs (TC) 

$ 


Yearly energy delivered (TED) 

kwh 


Cost of energy per kwh 

mill 


Yearly value delivered (VED) 

$ 


Cost per value delivered 



Percent of load supplied by 



Storage (PCW) 


Utility (PCU) 

Surplus energy load factor (PCS) 
Total load cost per kwh 


Printout only occurs when simulation is completed, 
variable symbol is required. 


Thus no output 
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SUBROUTljyiE CMCDUMM,FCR,L£I 


c 


PURPOSE 


ENtR&£ SIORAGE COSTS AND LEVELIIED 
ENERGY COSTS PER KWH* 


WRITTEN BY A.W. WARREN 


VERSION I, MAY 1977 


IMPUT PARAMETERS 


LE 

TMAX 

CC 

CM 

CO 

VDE 

TOE 

TLO 

UTV 

UTD 

SPD 


FIXED CHARGE RATE FACTOR INCLUDING DEPRECIAl ION. 

INSURANCE, AND TAXES, PcR YEAR 
SYSTEM LIFE EXPECTANCY , YEARS 
SIMULATION TIME, HR 
TOTAL YEARLY CAPITAL COSTS, $. 
total YEARLY MAINTENANCE COSTS, S 
TOTAL OPERATING AND FUEL COSTS OVER TMAX, $ 

VALUE OF ENERGY DELIVERED OVER TMAX, $ 

total energy delivered over tmax, kwh 

TOTAL LOAD DEMAND OVER TMAX, KWH 

THTAf energy SUPPLIED LESS SURPLUS VALUE, $. 

TOTAL UTILITY ENERGY DELIVERED, KWH 

TOTAL SURPLUS ENERGY SUPPLIED TO UTILITY, $ 


COMMON /COST/ CC, CMA,CQ,VDE,TDE,TLO,UTV,UTD ,SPO 
COMMON /CIMPl/IMPc /CTIME/ TIME /CSIMUL/ OUMI7),TMAX 
KcAL Lu 

INITIALIZATION 

1F( IMPL.GT.OTGQ TO 100 
0UMM=0.0 
CC = 0 - 
CMA =0. ! 

CO = 0. 

VOE= 0. 

TD£= 0. 

TLD= 0. 

UTV=4i. 

UTD=0. 

SPO=0. 

TMAXl= TMAX^. 99999 / 

100 IFCTIME.LT.TMAXDRETURN 
IFCIMPL.LE.llRETURN 


COST SUMMARY OUTPUT 

* LLE = LE 

WRITE(6,200)LLE 

COY = C0*8760./TMAX 
CCY = CC*LE»FCR».01 
I TOY = COY CMA + CCY 

WRITE(6,300)CCY,CMA,C0Y,T0Y 

300 FORMAT! //// 30X,22H0 YEARLY SYSTEM COSTS/ 1H+.29X.1H+/ IH- 4'>y 
I l^HCAPITAL C0ST,12X,F8.0,2H $ / IH ,42X,17H( INCLUDING FIXEO%* 
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2 

3 

4 


8HCHAi^o£S) / 1H0,42X,16HFIXE0 0 ♦ M COST 
42X,21H0PERATING *■ FUEL COST, 3X,Ffl.0,2H 
I9X,F8.0,2K $ ) 


8XtFb.0,2H $ /IHO 
/ 1H0,42X,5H10TAL, 




EpE = TDE ♦ 8760. /TMAX 
IVDE = wot * 8760. /TMAX 
TOYN = TOY^IOOO./ EOE 
VDEN - V0E*1000./ TOE 
CPV = TOYN / VDEN 


1 

2 
2 

3 

4 
e; 


/ 

/ 


IU-, 


WR J.1 E( 6 , 400 ) EOE, TOYN, 1V0£, VOEN,CPV 

400 FORM AH//// 30X,2.6H0 ENERGY DELIVERED / 1H+,29X,1H+ 

DELIVERED, 7X,F9.0,4H KWH / IHO, 33X, 50 ( 

IH , 33X , , 43X , 1 / 

IH ,33X,1H*, 8X,I9HENERGY COST PER KWH, 7X,F6.1,9H MILLS 
IH ,33X,1H*,4SX,1H* / IH , t t it n nxuL:» 

33X,10C5H**^*»| / 1H0,42X,25HVALUE OF ENERGY DELIVERED, 17, 

^ 1H0,42X,20H£NER&Y VALUE 

5v mills / 1HO,42X,24HCOST PER VALUE DELIVERED, 

^A,r6.2) 


* / 


PCD= (TDE-SPD)*100./TLD 
PCU= UTD*100./TLD 
PCS= SPD*100./TlD 


CPKWH- ( T0YN^(TD£“SPD) *■ UT V*100 O. )/TLD 
WRITEi6,500)PCD ,PCU,PCS ,CPKWH 
FORMAT!//// 30X,31H0 LOAD ' " 

1 1H+ / 1H-,42X, 


/ IH 
LOAD 


IH 


FACTOR 

OF LOAD SUPPLIED , F6.1, 2H 

SYSTEM / 1H0,42X,24HP£RCEN7 OF 

41X,11H BY UTILITY / 

.-•.J,42X,26HPERCENT OF SOLAR ENERGY ,F6.1 / 

H ,42X,9HSURPLUSED / 

1HO,42X,23HCOST TO MEET LOAD , 3X,F6*I,6H MILLS/ 

H ,42X,29H« SOLAR + UTILITYl / IHU 


/ IH+,29X, 


1 26HPERCENT 
2DLAR 

2 IH , 

IHO 

IH 


,42X, 28HBY TOTAL S 
SUPPLIED, 2X,F6.1 / 


RETURN 

END 


•Hl_ 
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7.6 COMPRESSOR (PNEUMATIC) 






CO 


POWER (PI) 

AMBIENT TEMP. (TA) 

MAX. INPUT POWER (MPl) 
INPUT EFFICIENCY (EFl) 



1 *-MASS FLOW RATE (M) 

OTOR SPEED (RS) 

XIT TEMPERATURE (T2) 
lAX. OUTPUT POWER (MP2) 
I ^-OUTPUT EFFICIENCY (EF2) 



The compressor model represents the off-design performance of a typical axial 
flow compressor. The compressor is assumed designed for a specified set of 
design operating conditions and performance requirements. The mass flow rate 
is assumed directly proportional to angular velocity and independent of the 
pressure ratio across the compressor. This is expected to hold for +15% of 
the design mass flow rate. The polytropic efficiency of the compressor is 
assumed to be a weak function of the angular velocity. Initial calculations 
are made with the design polytropic efficiency, and refinements made after 
the off-design parameters are calculated. 


Basic Equations 


The expression for the angular velocity is 


RS = Pl-?f 


Bm £EE 

MD CP^HTA+460)* [(PR2/PA )*«-A -1] 


where: 

EFF = ((PR2/PA)-5H^(A^fNP) - 1. )/ ( (PR2/PA)^FS{A - 1. ) 
A = (GAM -1)/GAM»NP) 
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-Inputs 

Parameter/Port 


Description 


Units 


p 

, 1 

Input power 

kw 

RSD 


Design angular velocity (D = 3600) 

rpm 

NO 


Design mass flow rate (D = 3000) 

Ib/h 

CP 


Heat capacity of air ID = 7.2X10”^) 

kwh/ 

TA 


Inlet air temperature (ambient) (D = 70) 

®F 

PR 

2 

Exit pressure (D = 147) 

psi 

PA 


Inlet pressure (ambient) (D = 14 . 7 ) 

psi 

GAM 


Heat capacity ratio (D = 1 . 4 ) 


EF 

1 

Input product efficiency 


NP 

1 

Maximum input power 

kw 

NPD 


Design polytropic efficiency (D = 0.88) 


PID 


Design inlet pressure (ambient) (D = 14.7) 

psi 

P0D 


Desigp outlet pressure (D = 147 ) 

psi 

TID 


Design inlet air temp (ambient) (D = 70) 

°F 

CK 


Compressor capacity cost coef f icient^lD = i.o) 


F0 

Outputs 
Var iab 1 

e/Port 

Compressor exponent for cost calculations 

ID = 0.75) 


NP 


Polytropic efficiency 


EF 

2 

Output product efficiency 


MP 

2 

Maximum output power 

kw 

TO 


Jerque 

ft- lb 

M 


Mass flow rate 

i ' , ^ 

Ib/h 

T 

2 

Exit temperature 

°F 

RS 


Angular veloci ty 

rpm 

CC0 


Cost of compressor/year 

$ 


CK 

0 


capital cost (known uni t )/ (design point mass flow rate)*^°- 5 t- 
LN (out I et/ 1 n I et pressure ratio)*(life expectancy of unit) 
Default values supplied 
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■Statistics 

AAT 

Nf 



Maximum temperature 
Maximum mass flow rate 


°F 

Ib/h 


The calculatfon sequence and the default values are based on the assumption 
of an axial flow compressor, nominally rated at 125kw, and a pressure ratio 
Of 10. The equations used relate first order effects among the various phys- 
ical quantities and were derived from first principles originally to support 
the research work of Reference 1. Cost scaling was also developed in that 
reference based on cost estimates obtained from turbomachinery manufacturers. 


Calculation Sequencp 
1) Costs (First pass only) 


OC0 = CK (A/lD)tf5(p0 ^ 

If Pi > 0 go to 2) 

A = (GAM-1 )/(GAM^tNPD) 

RAT = (P0D/PlD)tBf'A 

EFF =1, RS = Op go to 3 ) 


1 . 


"Closed Cycle High Temperature Central 
Power," BEC/EPRI RP 377-1, June 1976. 


Receiver Concept for Solar Electric 
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Calculation Se quence Cont. 



2) Angular velocity Iteration 


A - (GAM-l)/(GAMttNP) (Initially NP = NPD) 

RAT = !(PR2/PA)-5H«-a 

EFF = (RAT^HfWP-1)/ (RAT-1) 

= £i _£EE 

RSD m CP*(TA+460) (RAT - 1) 


Polytropic efficiency 


NP = 1 - (1 - NPD)^{-[2.0- ( i- TA+46Q) ^i-RSD. -^ h^q «-j 

PA (TlD+460) RS -* 


Iterate until NP and RS are consistent 

Ilf iteration doesn't converge, then write DIAGNOSTIC and exit) 

3) Mass flow rate 


M = /VD-JtRS/RSD 

4) Exit temperature 

T2 = (TA+460)-KRAT -460 


5) Torque 

I f Pi $ 0, set T0 = 0 and go to 6) 

T0 = Pl^^737.6/(RS^t2tr/60) 

6) Efficiency and maximum power 

EF2 = EFl^fEFF 

MP2 = MINIMPl-JJEFF, 1. 5t«V\D-5K:PtHT2-TA ) ) 

7) Compute Statistics and Costs 
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cco 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c . 

c 

c 

c 

c 

c 


c 

c 


c 




SUBROUTINt C0{IMP,EF2,MP2,T0,M,T2,RS,CC,MT.MF,Pl,RSD,MDtCP.TA,PR2, 
1 PRl»GAM,EFl,MPl,NPD,PlD,PODtTIDfCK,FO» 


PURPOSE PERFORMANCE MODEL OF AXIAL FLOW COMPRESSOR 

METHOO COMPRESSOR IS SIZED FROM INPUT OPERATINli REQUIREMENTS. 

MASS FLOW IS ASSUMED PROPORTIONAL TO ANGULAR VELOCITY 
AND INDEPENDENT OF PRESSURE RATIO. 

WRITTEN BY F.O. MAHONY VERSION 1, MARCH 22 1977 


CALL SEQUENCE 

OUTPUTS 

NP - POLYTROPIC EFFICIENCY 

EF2 - OUTPUT PRODUCT EFFICIENCY 

MP2 - MAXIMUM OUTPUT POWER, XW 

TO - TORQUE, FT*-LB 

M - MASS FLOW RATE, LB/HR 

T2 - EXIT TEMPERATURE, DEG F 

RS - ANGULAR VELOCITY, RPM 

CC - COST OF COMPRESSOR PER YEAR, S/YEAR 

MT - MAXIMUM TEMPERATURE OBSERVED* DEG F 

MF - MAXIMUM MASS FLOW RATE, LB/HR 

INPUTS 

PI - INPUT POWER, KW 

RSD - DESIGN ANGULAR VELOCITY, RPM 

MO - DESIGN MASS FLOW RATE, LB/HR 

CP - HEAT CAPACITY OF AIR, KWH/LB-DEG F 

TA - INLET AIR TEMPERATURE (AMBIENT), DEG F 

PR2 - EXIT PRESSURE, PSl 

PRl - INLET PRESSURE (AMBIENT), PSI 

GAM - HEAT CAPACITY RATIO 

£Fl - INPUT PRODUCT EFFICIENCY 

MPl - INPUT MAXIMUM DISCHARGE POWER, KW 

NPD - DESIGN POLYTROPIC EFFICIENCY 

PID - DESIGN INLET PRESSURE C AMBIENT) , PSI 

POD - DESIGN OUTLET PRESSURE (AMBIENT), PSI 

TID - DESIGN INLET TEMPERATURE (AMBIENT), DEG F 

CK - COMPRESSOR CAPCITY COST COEFFICIENT 

FO - COMPRESSOR EXPONENT FOR COST CALCULATION 


COMMON /CIMPL/ IMPL /CTIME/ TIME 
REAL MO , MPl ,NPD ,NP , MP2 ,M ,MT ,MF 
DATA PI /3. 14159/ 


/CS1MUL/DUM(7),TMAX /COST/CCI 


i INITIALIZATION 

I 

llF(IMPL.GT.O) GO TO 100 
MT = 0.0 

MF = 0.0 


llF (RSD.EQ. .99999) RSD = 3600.0 
IF (MD .EQ. .99999 )M0 = 3.0E3 
IFIMPl.EQ. .99999) MP1= 1.E8 
IF (CP .EQ. .99999 )CP = 72.0E-6 


BCS 40262-1 


135 



o o o o o o u 


IF ITA .EQ. 
IF (FftZ.EQ. 
IF (PRl.EQ. 
IF iGAM.EQ. 
IF (NPO.EQ. 
IF (PID.EQ. 
IF IPQO.EQ. 
IF (TlD.Ea. 
IF (CK .EG. 

I IF (FO .EQ. 
NP - NPD 


.99999 )1A = 70.0 
.99999 )PR2 = 147.0 
.99999 )PR1 = 14.7 
.99999 I GAM = 1.4 
.99999»NPD = 0.88 
-99999 )PID = 14.7 
.99999 )POD = 147.0 
.99999)110 - 70.0 
.99999 )CK l.O 
.99999 )F0 = 0.75 


COST 

CC = CK»MD»»FO*ALOG(POO/PID) 
TMAXl = TMAX^.99999 
100 CONTINUE 


SOLVE FOR POLYTROPIC EFFICIENCY 
AND ANGULAR VELOCITY 


ISP = 0 
C 

EFF=1.0 

IF(P1.GT.0.0)G0 TO 200 
C 

RAT= ( POD/P 10)4*( (GAN-I.O)/(GAM«NPO) ) 

TO =0.0 
RS=0.0 
NP=NPD 
GO TO 300 
C 

200 A = (GAM-1. 0)/(GAN«NP) 

RA|T= (PR2/PRl)«=(cA 

EFF» (RAT*=N«P - 1.)/(RAT - 1.) 

C 

RSNO = £FF*P1/M0»1.0/CP/(TA+460.0)/(RAT-1.0) 

c 

XNP = NP 
C 

NP = 1-0-(1.0-NPD)*C2-0-|PIO/PR1*ITA^460.0)/ITID+460 

1 *♦ 0 . 2 ) 

^ i ^ I 

IFilSP.GT.lO) GO TO 1000 
C 

ISP = ISP+l 
C 

lF|AaS((NP-XNP)/NP).GT.0.001) GO TO 200 
RS= RS0*RSN0 
C I 

t i MASS FLOW RATE 

300 M = MD*RS/RSD 

,c ' 

^ EXIT temperature 

C 

T2 = (TA>460.0)*RAT-460.0 
IFCPl.Lt.O.OGO TO 400 


CO 


0)/RSN0) 
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A 


o r» n r> o n o o ooo 



TOaOUh 

TO == Pl*737.&/(RS*2.0»PI/60.0) 

EFFICIENCY AND NAXINUM POWER 


400 EF2 = EF1*EFF 

MP2 = AHlNl(MPI*EFFf 1.5*MD*CP*(T2-TA)1 

STATISTICS ANO COST SUMMATION 

IF IIMPL.LE.I) RETURN 
MT = AMAXKMT, T2» 

MF = AMAXKMF, Ml 
IFtTIME.LT.TMAXl) RETURN 
CCI = CCI + CC 
C 

RETURN 

C 

1000 WRITE (6.I010I NP,XNP,RS 

1010 FORMAT (1H0,40HMAX ITERATIONS FOR COMPRESSOR EFFICIENCY, 
1 15H - NP.XNP.RS = •3F12.6) 

STOP 

END 
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cs 


7.7 PNEUAAATIC STORAGE VESSEL (CONSTANT PRESSURE) 


i 


STORED ENERGY (E) 
STORED MASS (MS) 


FLOW RATE (Ml ) 

temperature (T1) 

LOAD REQUEST (REl) 
MAX. INPUT POWER (MPl ) 
INPUT EFFICIENCY (EFl) 



OUTPUT POWER (P2) 

TEMPERATURE (T2) 

MASS FLOW RATE (M2) 

MINIMUM AIR TEMPERATURE (TSO) 
POWER REQUEST (RE2) 

INTERRUPT FLAG (INT) 

MAX. OUTPUT POWER (MP2) 


The pneumatic storage vessel is based on a constant pressure underground 
cavern design as represented In Figure 7.7. A surface pressure-compensation 
pond via a water shaft is assumed to maintain the vessel pressure at a con- 
stant value. This model is assumed to be used in conjunction with a heat 
exchanger. The energy is calculated as a function of the stored gas mass, 

the inlet/storage air temperature, and a leakage function proportional to 
the stored energy. 


Basic Equation 


The rate of energy storage is computed from the elquation 

, ... .1 

E = /W1-KCP*(T1-T0) - NU*E, charging 
E = -M2^fGP*(T2-T0) - NU-Jf£, discharging 

where AM = mass flow rate during charge 

M2 = mass flow rate during discharge 
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PRESSURE-COMPENSATION 

POND 



figure 7.7 CONSTANT PRESSURE AIR STORAGE 
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cs 

IjlPUtS 


Parameter/Por|- 

Description 

Units 


1 

inlet air mass flow rate 

Ib/h 

CP 


Air heat capacity (D = 7.2Xl0"®) 

kwh / 1 b 

Tl 

1 1 

Inlet air temperature 

°F 

TO 

! 

Minimum air temperature ID = 601 

°F 

Nti 


Leakage coefficient (D = 0.0008) 

h“^ 

R 


0as constant (D = 2.009X10”^) 

kwh/Jb 

m 


Maximum storage capacity (D =1,2X10®) 


PR 

1 

Vessel pressure (D = 147 ) 

psi 

LE 


Life expectancy of vessel 

years 

CVl ! 

I 

Vessel capacity cost (D = 0.22) 

$/ft^ 

RE 

1 

Load request 

kw 

EF 

1 

Input product efficiency 

_ 

MP| 

1 

Ipput maximum power 

kw 

MDE 

— 

Mpss threshold for priority resequencing 

lb 

m 


Maximum charge or discharge mass flow rate 

lb 

TM 


Maximum allowable air temperature (D = 120) 

°F 

TEM 


Maximum allowable inlet temperature 

°F 

CM 


Maintenance cost/year 

$ 

P.MtPMt§ 




Var i ab 1 

e/Port 



E 


Stored energy (state) 

kWh 

M 

2 

Outlet mass flowrate 

Ib/hr 

T 

2 

Storage temperature 

°F 

V 


Storage volume 


CC0 

i 


Cost of vessel /year 

$ 

MS 


Mass of air in storage (state) 

lb 

MP 

2 

AUaximum output power 

kw 

RE 

2 

AHakimum charging rate 

kw 

INT 


Interrupt priority flag 

_ 

TS0 


Minimum air temperature (=T0) 

°F 


D - Default values supplied 





% 
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Outputs Cont. 
Variable/Port 
PR 2 

P 2 

A/DM 


Vessel pressure {=PRD 
Output power (discharge) 

Maximum allowable mass flow rate (=A/\D) 


Stat i st i cs 

EU 

VU 


Maximum stored energy 
Maximum storage volume 



psi 

kw 


kwh 

ft5 


The pneumatic storage vessel calculation sequence and default values assume 
a lOatm cavern approximately 340 ft. below ground and sized for storage of 

I ' : ■ 

120kw for 24 hours. A maximum cavern wall temperature of 120°F is assumed. 
Cost estimates for the vessel were estimated from the results of Reference 
1, with cost scaling by .05 to account for plant size differences. 


1. "Preliminary Feasibility Evaluation of Compressed Air Storage Power Sys- 
tems," United Technologies AER 74-00242, December 1976. 
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f 


cs 

Calculqf-ion Sequpqro 

TINC = integration step size, hr 

Cl = conversion constant = 5,43xl0“® kwh/ft^ 

psi 

1) Vessel Cost 

CC0 = CV^M/LE 

2! Storage temperature 

“ cpfe ™ 

3) Storage volume 

V = MS-5f- Bj<-(T2+46nf 

pri^h:i 

4) AAaximum Mass and charging rate 

MSM = VM* IPRl^^Cl ) 

R-5MT2+460) 

MDl = MIN(MDM,(MSM-MS)/TINC) 

RE 2 = min |mPi, MD1-«CP^(-(TEM^T0)|/EF1 

5) Mass flow out (discharge mode) 

M2 = ~ 

CPJHT2-T0) 

P2 = REl 

6) Maximum discharge rate 

/WD = MIN{MDM,(MS-MDE)/TINC) 

MP2 = CP*(T2-T0)-J<MD 
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cs 

Ca leu I a Hon Sef| Nence Cont . 

7) Stored energy rate 

E = CP^(T1-T®)^ -r NU*E - REl 

8) Stored mass rate 

= AM - W2 

9) Priority interrupt 

if MS < AADE, INT = 1 

If AAS > 2^mE and INT = 1, INT = 0 

If AAS >AASAA, INT = -1 

i f AAS < AASAA-AADE and INT = -1, INT = 0 

If T2>TAA write diagnostic and set INT = -1 

If AAS < AADE or AAS>AASAA write diagnostic 

10) Compute Statistics and Costs 
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CCS 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


L 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

£ 

G 

c 

I 

c 

c 

c 

d 

c 

c 

c 

c 

c 

c 




PURPOSE 

MfcTHOO 


performance model of constant pressure storage vessel 

E^IEROr IN STORAGE COMPUTED AS A FUNCTION MASS AND 
INLET TEMPERATURE. 


written ay f.o. mahony 

CALL SEQUENCE 


VERSION 1, MARCH 23 1977 


OUTPUTS 

E 

OE 

IE 

MS 

□Ms 

IMS 

M2 

12 

V 

cc 

Mf»2 
RE2 
INT 
TSO 
PR 2 
P 

MDM 
cU • 
VU - 

INPUTS 

Ml - 
CP - 
T 

TO - 
R 

VM - 
PRl - 
LE - 
NU - 

cv - 
REl - 
EFl - 
MPl - 

MDE - 

MO - 

TM - 
TEM - 
CM - 


STORED ENERGY (STATE VARIA3LE)* KWH 

- STORED ENERGY DERIVATIVE. KW 

- STATUS INDICATOR FOR £ 

- A?rFL°0^*^A%^? 

“ STATUS INDICATOR FOR MS 

- yjITLET MASS FLOWRATE, LB/HR 
~ STORAGE temperature, DEG F 

- STORAGE VOLUME, FT*^3 

- COST OF VESSEL/YEAR, $ 

- MAXIMUM OUTPUT POWER, AW 

- MAXIMUM CHARGING RATE, KW 

- INTERRUPT PRIORITY FLAG 

- minimum AIR TEMPERATURE, OtG F 

- VESSEL PRESSURE, PS I 

- OUTPUT POWER (DISCHARGE!, KW 

- maximum ALLOWABLE MASS FLOW RATE, LB/HI 

- maximum stored energy, kwh 

maximum storage VOLUME, FT»*3 

~ lb/hr 

I CAPACITY, KWH/L8~OEG F 

INLET AIR temperature, DEG F 
“ MINIMUM AIR TEMPERATURE, DEG F 

- GAS CONSTANT, KWH/LB-OEG R 
MAXIMUM STORAGE CAPACITY, FT**3 

- VESSEL PRESSURE, PSI * ^ 

- VESSEL, YEARS 
COEFFICIENT , 1/HR 

- VESSEL CAPACITY COST , $/FT»*3 

■ LOAD REQUEST, KW » ^ 

■ INPUT PRODUCT EFFICIENCY 

■ INPUT MAXIMUM POWER, KW 

^ DISCHARGE MASS FLOW RATE i Ryua 
HAXwilS ^LLSHiA.'-^ STORAGE TEMPERATURE, DEG F 
MAInJSa^^E Msi / ?eaJ y^;'’«*TURE, DEG F 
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c 

c 


wUIlSI /CS1«UL/DUM(7»,TMAX 

REAL ^U,MS,MP2,lNT,MDM,Ml,Le,MPl,M0E»MDtM2tMSM#HDl 

IFf( IMPL.&T.OI GO TO 100 


cs 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 


c 

c 


1F<CP .EQ. 
IF(TM .Ew. 
IFITQ .EQ. 
1F(MU *E0. 
IF(R .EQ. 
IFCVM .EQ. 
iF(PRl. EQ. 
IPCCV .EQ. 
RB1=0.0 


.99999) CP = 72.0E-6 
-99999) TM= 120.0 
.99999) TO = 60.0 
-99999) NU = 0-0008 
.99999) R = 2.009E-5 
VM = 1.2E+6 
PRi = 147.0 


99999) 

.99999) 


.99999) CV - 0.22 


TMAXl = THAX’^0. 99999 
T1MC=DU?I(7) 

TSO=TO 

CC = CV»VM/LE 
Cl = 3.43E-5 

INT = 0- 
PR2=PR1 
E0= 0. 

VU= 0. 

100 CONTINUE 


STORAGE TEMPERATURE 
T2 = E/CP/MS+TO 

STORAGE VOLUME 
V = MS^R^(T2'*-460.0)/PRl/Cl 

MAXIMUM MASS AND CHARGING RATE 

MOM=NO 

MSM = VM*PRl*Cl/R/(T2+460.0) 

M01=^AM1N1 (MOMf AMAXif 0. r ( MSM-MS)/TINC ) ) 

RE2 = AMINHMP1,M01*CP#(TEM~T0))/EFI 


MASS FLOW OUT (DISCHARGE) 


M2 = RE1/CP/CT2-T0) 

P = REl 

MAXIMUM DISCHARGE RATE 
AMD=AMAXl(0-v (MS-MDE)/TINC) 

MDM= AMIN KMDMt AMD) 

MP2 = CP^(T2-T0)*MDM 


STORED ENERGY RATE 
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c 

c 

c 

c 

c 

c 


c 

c 


10 

20 


c 

c 

200 

C 


1F(IE.N£.0) i)E:=CP*CT-T0)*Ml - NU*E -REl 
STORED MASS RATE 


IF(iMS.ME.O) 0MS=Ml-M2 


IFiMS .Lt. MOE) INT=1, 
IF(MS.&r. 2.*MDE .AND. 
iFCMS .GE.MSM) liiT = ~1 
IFtMS*LT» MSM'~MDE aANO* 
1F(T2 .G1. TM) IfiT= -1. 


PRIORITY INTERRUPT LOGIC 
INT.EQ.I. J INT=0, 
IN1.EQ.-1.) IJ«T=0. 


IFUMPL-LE-DRETuRN 
IF(IMPL.GT,2)G0 TO 200 
IF(T2.LT.TM)G0 TO 10 
WRITE(t>,iOOO)T2,TM 
ICNT=ICNT+l 
IF(MS.GT.MDE)G0 to 20 
WRITE(6ti010)MSfM0E 

icnt=icnt+i 

1F(MS.LT.MSM)G0 to 200 

WR1T£(6,1020)MS,MSM 

icnt=icnt+i 

STATISTICS 

BU = AMAXHEUjE) 

VU = AMAXKVUvV) 


IF(TIME.LT.TMAXl) RETURN 
CCI = CCI•^CC 
CMI=CMI+CM 

RETURN 

1000 format UH0,23HCS STORAGE 

ILE, F12.3) 

1010 F0RMAT(iH0,2SHCS HASS OF AIR IN STORAGE FIP ^ 
1 26H BELOW MINIMUM ALLOHAdLE.F 12 3) 

1020 FCRMAK iHOf 23HCS MASS OF AIR IN STORAGE F12 

^N^ AL:5SA8?EfJ?2!3f' 


tempera TURE V F12. 3, 22HGR BATE 



than ALLOWAB 
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7.8 ENVIRONMENTAL DATA (TMY TAPE) 


1 




Oay-of-Year (DY), 
Time-of-Day (TD). 


This component reads data values from the Typical Meteorological Year 
(TMY) tapes or data with a similar format structure such as the University 
of Wisconsin insolation and environmental data tape or the SOLMET tapes. 
Only one ED component is allowed per model. (Unit 1 is reserved for the 
input tape.) The file structure assumes hourly recorded data with one 
record or card image per hour of data. Twenty-four hourly records are read 
into core at a time and linear interpolation is used to obtain the output 
values at the current simulation time. The component TI is used to supply 
the time inputs DY and TD. Standard outputs with the TMY tape are direct 
and global solar insolation, dry bulb temperature, and wind speed. For 
non-standard outputs or non-TMY format tapes the user may specify the input 

format to read one to eight data variables. The following limitations 
apply in this case: 

r- 
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1) 


2 } 


3) 


T1.e 1nfo™at1c„ Is decoded in integer ^nth ( 1 - 12 ). day (1-31), and 
hour (0-24) format. 

Output var iables are decoded in F or f 

in r or E format, even if recorded in 

integer format. 

Where data is pissing, fill in with 9’s is assuped. The code checks 
for certain 9 fill values, napely 99., 999.. 9999., and 99999. If any 
one Of these values is read, then the corresponding data input is 
replaced with 0. or the previous value, depending on the sign of IND. 
(However, one must use FN.O forpat N=2.3.4.5 for this option and a 
scale multiplier if necessary to obtain the desired exponent.) 




Inputs/Port ^ 


NX 

IND 


Description 

Number of output variables (default = 4 , max 
Indicator function; 

0 = no read 

±1 - standard format and units (default) 

±2 - user-specified format and units 

INDX) sets missing data = 0 

INIXO sets missing data = previous value 


Units 


= 8 ) 


r 


Also see page 65 in Section 4.2 for inmifc j 

H.,: ror inputs to procedure TMYRD. This 

procedure creates the data input file TAPE! f»'nm fi, i*.- 

K lie iMPti from the multi-station TMY 

tape. 


,v 
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ED 

Inputs/Port 

(cont*d) Description Units 

TS* Time shift of data (default = -0.5) hours 

TD Time of day (0-24) hours 

DY Day of year (1-365) 

Ml Units multiplier for XI (default = 1) 


M8 Units multiplier for X8 (default = 1) 

A1 Units addition factor for XI (default = 0) 


A8 Units addition factor for X8 (default = 0) 


■k 

Compensation term since solar radiation data is an integrated total over 
the observation interval. 
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Outputs/Port 

Description 

Units 

XI 

1st output variable 

(IND =±1: beam radiation in w/m^ 

- 

X2 

2nd output variable 

(IND =±1: global horizontal radiation in w/m^) 

- 

X3 

3rd output variable 

(IND = ±1: dry bulb temperature in °C) 

- 

X4 

4th output variable 


• 

• 

(IND = ±1: wind speed in m/s) 


• 

X8 

8th output variable 



Format Specification 

A user-specified format may be input in order to select non-standard en- 
vironmental outputs or to read a tape other than the TMY insolation tape. 
The following sequence of data cards is recommended for insertion in the 
model generation input following the MODEL DESCRIPTION command: 

FORTRAN STATEMENTS 
DIMENSION FMT(7) 

COMMON/READER/N,FMT 
DATA FMT/XXH(...)/,N/NN/ 

where the format specification contains XX-2 characters inserted after 

•XXHC and followed by •)'. and NN = the number of characters per data 
record. 
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The format specification must conform to the following rules: 



1) The first two words read are station and year identifying informa- 
tion. These words must be either A format or nH format with up to six 
characters for station and two characters NN for year 19NN. 

■I . ' ' 

2) The next three words are two-digit integers containing month (1-12), 
day (1-31), and hour (0-24) information. 

3) The next one to eight words specify the location of the output vari- 
ables XI... X8 and must be given in F or E format. 

NOTE: The tab or column spacing control T may be used to read data from 

files which are not ordered as in 1) to 3), e.g., (T71, A5, Tl, A2,...). 

For example, the standard TMY tape format specification (neglecting 

blanks) is 

Station Yr-Mo-Dy-Hr Beam Rad. Global Rad. Temp Wind 
(A5, A2,3I2,11X, F4.0 ,26X, F4.0,45X, F4.1,7X, F4.1) 

and N ^ 132 , XX = 46. 

The general format for variables on the TMY tape is summarized in Figure 

7.8. 


BCS 40262-1 


151 





RECORD 

FIELD HUMBER POSITIONS OESCRIPTIOH 



002 

01-05 

WBAN STATION NUMBER 


003 

06-15 

SOLAR Time (yr, mo; day, hour, minute) 


004 

16-19 

LOCAL STANDARD TIME (HR AND MINUTE) 


101 

20-23 

extraterrestrial RADIATION 


102 

24-28 

DIRECT RADIATION 


103 

29-33 

DIFFUSE RADIATION 


104 

34-38 

NET RADIATION 


105 

39-43 

GLOBAL RADIATION ON A TILTED SURFACE 


106 

44-48 

>*^DWTI0N on a HORIZONTAL SURFACE- 
OBSERVED DATA 


lo; 

49-53 

GWBAL RADIATION ON A HORIZONTAL SURFACE- 
ENGINEERING CORRECTED DATA 


loe 

54-58 

GLOBAL RADIATION ON A HORIZONTAL SURFACE- 
STANDARD YEAR CORRECTED DATA 


109(110 

59-68 

ADDITIONAL RADIATION MEASUREMENTS 


111 

69-70 

MINUTES OF SUNSHINE 


201 

71-72 

(^sf)°^ ‘^O'-UTERAL SURFACE OBSERVATION 

GR^GiNAL PAGE IS 

202 

73-76 

CEILING HEIGHT (OEKANETERS) 

203 

77-61 

SKY CONDITION 

OF POOR QUALITY 

204 

82-85 

. VISIBILITY (HECTOMETERS) 


205 

86-93 

HEATHER 


206 

94-103 

PRESSURE (KILOPASCALS) 


207 

104-111 

TEMPERATURE (DEGREES CELSIUS TO TENTHS) 


208 

112-118 

HIND (SPEED IN METERS PER SECOND TO TENTHS) 


209 

119-122 

aouos 


210 

123 

FIGURE 

SNOM COVER INDICATOR . 

7.8 TMY TAPE FORMAT 
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ED 

A; complete description of the available data, and the meaning of the 
recorded outputs, is contained in the SOLMET user's manual [3]. The TMY 
tape was derived from SOLMET tapes of the 26 stations with rehabilitated 
solar radiation data, and has the same format as the SOLMET tapes except 
that tape deck number and detailed cloud data have been omitted. Table 7.8 
shows the identity and location of the 26 stations on the TMY tape. 


Calculation Sequence 


If IND =0 Return 


1) INITIALIZATION (first pass only) 

• Set defaults and initialize LTD = -1 

• Read first data block and write out identification informa- 
tion. (Error exit to 6)) 

• Go to 4) 

2) Table Interpolation for Output (DY = DYF) 

• If DY>DYF go to 3) 

• If DYF>DY go to 5) 

• If LTD = TD return (LTD = last time C(I,J) was accessed) 

• X(I) = TBLUl (TD, TO, C(1,I),0,24)*M(I)+A(I) I = 1,...NX 

• LTD = TD 

• Return 
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Read One or More Data Blocks (DY>DYF) 

• Read DY-DYF data blocks. (Error exit or EOF exit to 6)) 

Decode Using Specified Format 

• Decode day-of-year (DYF) and time information (TO) and put 
output variables in array C(I,J) 1=1,24 and J=1,NX. Check 
for missing data values in C(I,J). 

t Go to 2) 

Backspace the File (DYF>DY) 

t Backspace and read first data block 

• Decode day-of-year (DYF) 

• Go to 4) if DYF<DY. Otherwise print diagnostic and stop. 

Read Error or EOF Encountered 

• Print diagnostic and stop. 
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TABLE 7.8 TMY TAPE STATIONS AND LOCATION 



STATION 

W 6 AN 




NUMBER 

IDENTIFIER 

STATION 

LATITUDE 

LONGITUDE 

1 

3927 

Fort Worth, Texas 

32°50 ' 

97°03 ' 

2 

3937 

Lake Charles, Louisiana 

30°07 ' 

93°13 ' 

3 

3945 

Columbia, Missouri 

38®49 ' 

92°13 ' 

4 

12832 

Apalachicola, Florida 

29 O 44 • 

84°59' 

5 

12839 

Miami, FT or i da 

25°48' 

80°16' 

6 

12919 

Brownsville, Texas 

25°54' 

97°26' 

7 

13880 

Charleston, South Carolina 

32°54‘ 

80°02* 

8 

13897 

i 

Nashville, Tennessee 

36%' 

86°41' 

9 

13985 

Dodge City, Kansas 

37°46 ■ 

99°58' 

10 

14607 

Caribou, Maine 

46°52' 

68 ^ 01 ' 

11 

14837 

Madison, Wisconsin 

43°08‘ 

89°20 ' 

12 

23044 

El Paso, Texas 

31°48‘ 

106%' 

13 

23050 

Albuquerque, New Mexico 

35% ' 

106 °37 ' 

14 

23154 

Ely, Nevada 

39°17' 

114°51' 

15 

23183 

Phoenix, Arizona 

33°26' 

ii2°or 

16 

23273 

Santa Maria 

34°54' 

120°27' 

17 

24011 

Bismarck, North Dakota 

46°46' 

I—* 

0 

0 

0 

18 

24143 

Great Falls, Montana 

47°29' 

111 ° 22 ' 

19 

24225 

Medford, Oregon 

42°22' 

122°52' 

20 

24233 

Seattl e-Tacoma, Washington 

47°27' 

122°18' 

21 

93193 

Fresno, California 

36°46 ' 

119%' 

22 

93729 

Cape Hatteras, North Carolina 35°16‘ 

75°33 ' 

23 

93734 

Wajshington, D.C. 

38°59 ' 

77%' 

24 

94701 

Boston, Massachusetts 

42°22 ■ 

71°03' 

25 

94728 

New York, New York 

CJ°47 ' 

73%' 

26 

94918 

North Omaha, Nebraska 

41°22' 

96°01 ' 
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oooauouooooooooouooaooooooouoouoooouo 


CEO 


C 

c 

c 


1M1,H^,M3,M4,M5,M6,M7,M8.A1,A2,A3,A4,A5,A6,A7,A8 ) 




PURPOSE 


YEAR TA?-°2f?I typical meteorological 

similar TO THE 

S^iNoLo *=® “•O"- 

WRITTEN &Y Y.K.CHANt 10-5— 78 t VERSION 1 


METHOD 


TWENTY FOUR HOURLY RECORDS ARE READ INTO CORE 
-r? 7^^*^ ^*^*0 LINEAR INTERPOLATION IS USED TO 
OBTAIN THE OUTPUT AT CURRENT SIMULATION TIME, 


CALL SEQUENCE 
OUTPUTS 

VARIa&LES AT CURRENT TIME 
XI -SEAM RADIATION IF lNO=+-l, W/M2 
-GLOBAL RADIATION IF lNO=+-i, W/M2 
-DRY BULB TEMPERATURE IF lND=*-i. C 
-WIND SPEED IF IND-+-1,M/S 


INPUTS 


X3 

X4 


NX 

IND 


ts 


TO 

OY 

Ml 


Indicator function^*^‘^^^*“^^ * default=4,max-8 j 
0=N0 READ 

■•■“'•^“STANDARD FORMAT AND UNITS ( OEFAULTl 
+-2=USER SPECIFIED FORMAT AND UNITS 
>0,SETS MISSING DATA TO 0 
<OtSETS MISSING DATA TO PREVIOUS VALUE 
-TIME SHIFT OF DATA(D£FAULT=-0.5 ) 
(COMPENSATION TERM SINCE SOLAR RADIATION 

-CURRENT DAY OF YEARU-365) 

,M8 -UNITS MULTIPLIERS FOR Xl,...,X6 
DEFAULT M1=...=M0=1 

AI,...,A8 -addition FACTOR FOR XI,.,, -XB 

default Al=..,=Aa=0 

COMMON /READER/N.FMT 

COMMON /CIMPL/IMPL,ICNT,ITEST 

REAL MX, lNDtMI,M2,M3,M4,M5fM6,M7,M8,Mf 8 1 i Tn 

^DATA <=R«T/7OH<A5.A2,3I..UX.FA.o;2604!;i:l5X.F4.l.7X.PA.l, 

i'Im .“o“: .2«. . 


» • • • : 


IFCABS(IND) .LE..1) RETURN 

INITIALIZATION 

IF( IMPL.GT.OGO TO 100 
IF ( NX.EQ . .99999 }NX=4 
IF(TS.EQ.,99999STS=-.5 
1NX=NX+.1 


W PAGE IS 
POOR QUALITY 
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11 


c 

c 


M( 1) -Ml 

M(2)=M2 

M(3)=M3 

M(4)=M4 

M(5)=M5 

M(6)=M6 

MC7)=M7 

M(8) -Hii 

A(i|=Al 

AC2|=A2 

A(3|=A3 

A(4}=A4 

A«5)=A3 

A(6)=A6 

A«7)=A7 

A(8)=A8 

00 11 1=1, INX 

IF(MtI).£Q,.99999)j4( j 

IF(A(I).£C..99499)A(I»=0. 




C 

C 

C 


c 

c 


c 

c 

c 

c 


TO STANDARD 

M( II =l«/3*6 
M42I=1,/3.6 
□0 3 1=1,7 
3 FMT( D=FRMTCI) 

M=132 

2 CONTIMUE 
LTD=-1. 

00 10 J=1,INX 
10 CL(J)=0. 

READ FIRST data BLOCK 

iR£WlM=0 

J13=N/10 

IF(M.GT«10*J13) J13=J13+1 
DO 20 J=l,24 
J1=J13*( J-l)+i 
J2=J1+J13~1 

SUFFER IN IlfOM AAIJI) ,AAI J2| ) 

IFCUNITI 1 I >20,600,600 
20 CONTINUE 

OECOOt(N,FMT,AA(l) ) IB,B 
WRITE(6,308IIB(1) ,IB(2) 

=‘TA1I0N ID=A.A5.T0X.*YEAR X9A.A2) 

100 CONTINUE 
200 CONTINUE 

INTERPOLATION FOR OUTPUT IF CURRENT riAv nc w.-a.. 

BEEN LOCATED UUKRENF DAY OF YEAR HAS 

TD1=TD 

IFOY.GT. lOYF+.l I IGO TO 300 
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o o o n o O- 


IFlOY.LT,IDyF-.l| )G 0 10 i >00 
24 IF(L1D.£Q.T0)R£TURN 
DO 201 1=I»1NX 

201 X(n=TBLUl(TDl,T0,CU,I),0,24)*M4n*Ain 

LTD=T0 

RETURN 

C 

300 CONTINUE 


IF CURRENT DAY OF YEAR HAS NOT BEEN LOCATED* READ MORE TAPE 

i 

lb=DY-DYF+.l 

IFdO.EQ.l .ANC. TO,LT. .00001) TOl-24. 

IFCTOl.EQ. 24.) GO TO 24 
DO 3C i=l,IO 
DO- 301 J=l*24 
Jl=Ji3*l J-i)+i 
J2=J1+J13~1 

BUFFER iNdyOMAACJDtAAC J2) ) 

IFCUNITI I))301»60a,60iL 
301 CONTINUE 
30 CONTINUE 

DECODE DATA AND IIME OF DAY 



C 

C 

C 

C 


400 CONTINUE 

DO 402 1=1,24 
Ii=J13=M I-D + l 
DECODE (N,FMT,AA(Il|)Id,fi 
DO 401 J=1,1NX 
C( 1*J)=BC J) 

C1J=C(I,J) 


1F( IC1J.EQ.99.).0R«(CI J.EQ.999.) .0R.IC1J.EQ.9999. 
KCIJ.EQ.99999.) )C ( 1, J) =CLC J) 

IF(IND.LT.0.)CL( J)=C(I,J) 

401 CONTINUE 

TO(I )=1B(5)^TS 

402 CONTINUE 


DYF=IB(4)+DMCIBf 3) ) 
GO TO 200 


OR 


500 CONTINUE 


IF DAY OF YEAR ON TAPE IS PAST CURRENT DAY OF 
REWIND TAPE. 

IF(IREWIN.GT.O)GO TO 507' 

REWIND 1 
lREMIN=lREWlN<d 
DO 501 J=l,24 
J1=J13*( J~l)+l 
J2=Jl+J13-i 

BUFFER INIl,0)lAAlJl),AAf J2)) 

IF(UNITIl) ) 501,600,600 
501 CONTINUE 

□ECOOE(N,FMT,AAUniB,B 
DYF=IB(4)-i^0M(lB(3) ) 

IF(DYF.LT.CDY+.1))60 TO 400 
507 WRIT E{6,508) 


YEAR, 
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508 TORMATiiHO,* INPUT ERROR. DAY OF YEAR DY IS OUT OF RANGE.! 

600 WRITE.6.6M, «>I*6*0STICS 

60fl FORMAT (IH0,*ED TAPE INPUT ERROR UR £UF»I 
ST OP 
END 
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7.9 FLYWHEEL /CLUTCH 





POWER (PI) 

POWER REQUEST (REl) 
INPUT EFFICIENCY (EFl 
MAX. INPUT POWER (MPl 



POWER (P2) 

ROTOR SPEED (RS) 

POWER REQUEST (RE2) 
INTERRUPT FLAG ( INT) 
OUTPUT EFFICIENCY (EF2) 
MAX. OUTPUT POWER (MP2) 


The flywheel model is a first order differential equation for kinetic energy 
which is driven by input power when charging and by a load request when dis- 
charging. Power losses include clutch losses versus shaft speed and torque, 
windage losses, and friction losses due to bearing and seals. Shaft speed 
is determined analytically from kinetic energy. Priority interrupt logic 
is activated if minimum or maximum capacity levels are reached. 

Basic Equations 


where 


KE = k-3fraj.‘ 


= ’’in - ''out - 


flywheel constants 
0) = rotor speed in rad/ sec 

I 


2.8 


P|(g = input power - clutch losses 
Pqjjj = output load request 
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-Tables 

Descr i pt ion 


CL0 

Clutch losses versus rotor speed (rpm) 
and torque (ft-lb), when engaged (Table 
dimension =90) 

kw 

CLl 

Incuts 

Parameter/ Port 

Clutch losses versus rotor speed (rpm) 
when disengaged (Table dimension =17) 

kw 

PR 

Pressure in vacuum housing 

psi 

m 

Moment of iner.tia^ 

slug-ft^ 

RF 

Radius of flywheel 

ft 

SR 

Shaft rcdius 

ft 

wr 

Flywheel weight 

lb 

KF 

Coefficient of friction 


ZE 

Width of flywheel at tip 

ft 

C2 

Windage loss coefficient (analytic default) 


P 1 

Input power 

kw 

EF 1 

Input product efficiency 


MP 1 

Input maximum charging rate 

kw 

RAP 

Rated power, charge or discharge 

kw 

RE 1 

Discharge load request 

kw 

E0 

Minimum allowable storage capacity 

kwh 

El 

AAaximum allowable storage capacity 

kwh 

EDE 

Energy deadband for priority resequencing 

kwh 

CM 

AAaintenance cost/year 

$ 

CC 

Capital cost/year 

$ 

Cutouts 

■ ■ 


Variable/Port 

• 


RS 

Rotor speed 

rpm 

KE 

Kinetic energy (state) 

kwh 


1 

Includes physical drive system. 
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^)utPUts Cont- 
Variable/Pnrf 

Pescriotinr^ 

Uni ts 

IW 


Input torque (charging) 

ft-lb 

T1 


Output torque (discharging) 

ft-lb 

P 

2 

Output power 

kw 

PL0 


Clutch losses (charging) 

kw 

PLl 


Clutch losses (discharging) 

kw 

EF 

2 

Output efficiency 


N\P 

2 

Maximum output power 

kw 

INT 


Priority interrupt flag 


RE 

2 

Maximum charging power request 

kw 


Stat i sties 
N€ 

MPC 

MPD 

SPC 

SPD 


Maximum stored energy 
Maximum charge rate 
Maximum discharge rate 
Sum of charging energy 
Sum of discharging energy 


kwh 

kw 

kw 

kwh 

kwh 


n. 
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Calculation Sequence 



1) Compute flywheel constants 

k = 1 76616*10 

2 

C^= KFW^fSR*/ 1.3558*10"^ 

C„ = C * RF^‘^ *<1 + 2.3*ZE/RF) (DEFAULT) 

2 o 

C = 1.0946 * 10”^ 
o 

1 f KE < EO or KE > El write diagnostic 

2) Compute rotor speed 

u) = VkeTk 

RS =U)*( 60/270 



3) Compute power losses and net power when charging 

If PI = 0, set T0 = PL0 = P|M = 0 and go to 4) 

TO = Pl*737.6/0) 

PLO = CL0(RS,T0) 

P,N = PI - PL0 

If P|M<0/ write diagnostic 

4) Compute power losses and output power when discharging 

If REl = 0, set T1 = PLl = P2 = Pqut = ° 9° 

T1 = REl*737.6/(i) 

PLl = CL0(RS, -Tl) 
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Calculation Sequence 

4) Cent. 


FL 

I 


P2 = REl - PLl 


*^OUT 


If P2 < 0, set P2 = 0. and write diagnostic 


5) Compute power losses when disengaged 


If PI > 0 or REl > 0, go to 6) 


Pqut = CLKRS) 


6) Flywheel kinetic energy rate 


' '’in - ’’out - 


2.8 


7) Maximum Input (charging power) 

TM = MPl^f737.6/iU) 

MP0 = MPl - CL0(RS^TM) 

If MP0 So, write diagnostic and go to 8) 

EF0 = EF1-IIMP0/MP1 

RE2 = MIN(MP0,RAP),(EI-KE)/T1NC)/EF0 

8) Output efficiency and maximum power - 

RAPl = MIN(RAP,(KE-E0)/TINC), TINC = integration step 

TM = RAPl-5^737.6/(jJ 

MP2 = RAPl - CL0(RS,-TM) 
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8) Cont. 

If MP2 < 0 write diagnostic 
EF2 = MP2/RAP1 
If REl > 0, EF2 = P2/RE1 

9) Priority interrupt logic 

If KE < E0 , INT = 1 

If KE > E0 + EDE and INK, INT=0 

If KE > El , INT = -1 

If KE < El - EDE and INT= -1, INT=0 

10) Compute Statistics and Costs 
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CFL 


C 

C 

c 

c 

c 

c 

c 


FL 


1 

2 


SUBROUTINE FLCCLOfCLl, RS fKE, KEO, IKEt TO»Tlt P2f PLO fPLl,EF2 fMP2f INT, 

<*<^*HM,RF,SR,WT,XF,2EfC2,Pl,EFl,MPltRAP 

fREl,EO,El,£DE,CM,CC) 


PURPOSE 

METHOD 


MODEL OF FLYWHEEL CAPABLE OF ABSORBING POWER 
AND OF DELIVERING POWER ON REQUEST ’ 


OUTPUT POWER AND KINETIC ENERGY COMPUTED FROM 
POWER REQUEST AND INPUT POWER 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cl 

c 

c 

c 

c 

c 

C; 

c' 

c 

c 

c 

C; 

c 

C| 

c 

c 

c 


written by y.k.chan 


VERSION I, JUNE 17, 1977 


CALL SEQUENCE 
TABLES 

CLO -CLUTCH LOSSES VS ROTOR SPE£0(RPM) AND TORCUE( FT-LB),KW 
CLi -CLUTCH LOSSES VS ROTOR SPEcD(RPM) WHEN DISENGAGED, KW 
OUTPUTS 

RS -ROTOR SPEED, RPM 
K£ -KINETIC ENERGY (STATE I ,KWH 
KED -KINETIC ENERGY INCREASE RATE,KW 
IKE -INTEGRATOR CONTROL 
TO -INPUT TORQUE (CHARGINGI, FT-LB 
T1 -OUTPUT TORQUE (DISCHARGING) , FT-LB 
P2 -OUTPUT POWER,KW 
PLO -CLUTCH LOSSES (CHARGING) , KW 
PLl -CLUTCH LOSSES (DISCHARGING) ,KW 
EF2 -OUTPUT EFFICIENCY 
MP2 -MAXIMUM OUTPUT POWER, KW 
INT -PRIORITY INTERRUPT FLAG 
RE2 -MAXIMUM CHARGING POWER REQUEST 
STATISTICS 

ME MAXIMUM STORED ENERGY, KWH 
MPC -MAXIMUM CHARGE RATE,KW 
MPD -maximum DISCHARGE RATE,KW 
SPC -SUM OF CHARGING POWER, KWH 
SPD -SUM OF DISCHARGING POWER, KWH 
INPUTS 

-PRESSURE IN VACUUM HOUSING, PSI 
-MOMENT OF INERTI A, SLUG-FT2 
-RADIUS OF FLYWHEEL, FT 
-SHAFT RADIUS, FT 
-FLYWHEEL WEIGHT, LB 
-COEFFICIENT OF FRICTION 
-WIDTH OF FLYWHEEL AT TIP, FT 
-WINDAGE COEFFICIENT (ANALYTIC DEFAULT) 

-INPUT POWER, KW 
EFl -INPUT PRODUCT EFFICIENCY 
MPl -INPUT MAXIMUM CHARGING RATE.KW 
R^P -RATED POWER, CHARGE OR DISCHARGE,KW 
REl -DISCHARGE LOAD REQUEST, KW 
ED -MINIMUM ALLOWABLE STORAGE CAPACITY, KWH 
El -MAXIMUM ALLOWABLE STORAGE CAPACITY, KWH 
ED£ -ENERGY DEADBAND FOR PRIORITY RESQUENClNGtKWH 
CM -MAINTENANCE CQST/YEAR,$ 


PR 

HM 

RF 

SR 

WT 

KF 

ZE 

C2 

PI 








/s 
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n o 




FL 




C 

c 

c 


r 

ip 


c 

c 

c 


CC -CAPITAL COST/YEAR, $ 

COMMON /CIMPL/IMPLf ICNT/LTIM£/TIME/CSIMUL/DUM( 7) .TNAX 
X /COST/CCl,CMI 

REAL KtO»MP2,INTtMEfMPC tMPOfKFtHPlfMPOtMPAtMPb 
piMENSlUN CLQ(1I,CLIC1) tnrA.nrD 

0 

IF( IMPL.GT.O)SO TO 10 
TINC =DUN(7)*.5 

P*^**-al*CRF»*4.6+2.3*Z£*|RF»*J.6)) 

TMAX1=TMAX** 99999 

» I 

M£=0. 

AE1=0. 

MPC=^0. 

MPD=0, 

SPC^O. 

iP0=0. 

10 CONTINUE 

AK= . 3*HM»3 . 76616E-7 

Cl=KF*WT^SR»l.iS38E-3 

IF(Kt,Lt.nO> WRlTE(6,108)KEf EO 
IF(KE.GE.i:l)WRITE(6,109)K£,El 
109 F0RMAT(1H0,26H FLYWHEEL KINETIC ENERGY ,F12.3. 

X 18H EXCEEDS CAPACITY tF12.3) 

108 F0aMAT(lH0,24H FLYWHEEL KINETIC ENERGY ,F12. 3 . 

X :>3H FALLS BELOW MINIMUM REQUIREMENT ,F12.3» 

ICNT=ICNT>1 * .^1 

20 CUNTINUE 
NNRS=CL0(2) 

NNT=CL0(3) 

M4=NNT-*-4 

MN4=M4*^NNRS 

NNNRS=CL1(2) 

NfilNRS4=NNNRS+4 

T0=0. 

T1=0. 

p2=o. 

PL0=0. 

PL1=^0. 

RE2=0. 

COMPUTE ROTOR SPEED 

100 0MEGA=l.E-6 

IF(KE.GT.O. )OMEGA=SORTCKE/AIA) 

RS=0ME&A*30«/3. 14159 
PIN=0. 

COMPUTE POWER LOSSES AND NET POWER WHEN CHARGING 

IE<P1.£Q.0.)G0 to 200 
TO=P 1*737 . 6/OMEGA 

P0UT=0. 
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c 

IF(PIN.&E,0.)&0 to 20G 
IF(IMPL.Nfc.2)£^ TO 200 
WRlT£i6t208 )PLO»Pl 
20b FORMATI1HO,21H FLYWHEEL POWER LOSS vF12.3, 

X24H EXCEEDS CHARCI^^ POWER ,F12.3) 
lCl%T=lCi»*T+l 
C 

c COMPOTE POWER LOSSES AND OUTPUT POWER WHEN OlSCHAR&INb 

200 IFCREl.EQ.O. )G0 TO 300 
Tl=REi>?37.6/0ME&A 

»^‘-0*^>fCLOJMMA) ,l,l,-NNRS,-,lNT, J<lNRS,NNT) 

» ^““Kci^PLl 
f»0UT=REl 

IF4P2,GT«O..OR.IMPL«NE.2IGO TO 300 
WRITE(6,306)PL1,RE1 

308 FORMAT! IHOtlbH FLYWHEEL LOSS tF12.3, 

X27H EXCEEDS DISCHARGING POWER ,F12«3) 

1CNT=1CNT+1 
P2-0 . 

C 

^ COMPUTE POWER LOSSES WHEN DISENGAGED 



300 1F(P1.GT .0. )G0 TO AOO 
IFCREl.GT.O, JGO TO 400 

P0UT=TBL'JHRS»CLU4) tCLUNNNRS4) »l»-N?iNRS) 
FLYWHEEL KINETIC ENERGY BALANCE 


400 

C 

C 

C 


1F( IKE.Nt •0) XED=PIN“POUT-C1*DMEGA“C2*IOMEGA**2*8 ) 

MAXIMUM CHARGING POWER REQUEST 


TM=MP1*737. 6/OMEGA 

MPA=TBLU2(RS*TMfCLQ{ M4) tCLC(4) tCL0(MN4) t If lt-NNRS9--NNTt 
X NNRS,Ni*T) 

MPQ=MP l-MPA 
IFCMPO.GT.O.JGO TO 500 
C IF(IMPL.£Q.2)WRITE!6,508)MPA,MP1 
C 508 FORMAT! 1H0,22H FLYWHEEL CLUTCH LOSS ,F12.3, 

C X 31H EXCEEDS MAXIMUM INPUT POWER tF12.3) 

C IF!1MPL-EQ.2)ICNT=IC4*T+1 

GO TO 600 

500 £F0=EF1»MP0/MP1 

APC=AMAXl!0.,.5A!Ei-K£)/TINC) 

ftE2=AmNl!MP0,RAP,APC) 

RE2=RE2/EF0 

C 

^ OUTPUT EFFICIENCY AND MAXIMUM POWER 

C 

600 .7APT=!KE~£0)/!TINC*2.) 

RAPT==AMlNl!KAPTfRAP) 

RAPT=AMAXi(RAPTt RAP/ 1000.) 

TM=RAPT^?37. 6/OMEGA 

MP3=TBLU2CRSf — TMf CEO! M4) fCL014 ) t CLUl MN4 ) t If 1»— NNRSf— NNT f 
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X NNRStNNT) 

MP2-RAPT-MPS 

lFCMP2.GT.a..0R.IMPL.NE.2)G0 TO 700 
70B FORMAT! 1H0.22H FLYWHEEL CLUTCH LOSS tF12.3, 
X27H EXCEEDS DELIVERABLE POWER ,F12,3| 
WRIT£i6,708)MPBiRAPT 
ICMT=ICNT+1 

700 MP2=AMAXKMP2tRAP/1000. I 
EF2=MP2/RAPT 

XF ( R ci.» GT mOm • AMO* P2 sGT • C • ) EF2~P2/RE1. 
PRIORITY liMTERRUPT 

EC1=EI-ED£ 

ECO=cO+£DE 

1F( ( XL*GT.£CC)*AMD.( li«r*EQ*l) ) IMI-O 
1F( ( KE.Ll •EC1).AM0.(IMT.EQ.-1| )IMT=0 

IFIKE.LE.£0UNT=1. 

IF(KE.GT.E1)INT=-1. 

IF( ( KE.GT-ECC) .AMD.CKE.LT.tCl) )INT=0. 
IF«1MPL.L£.1JRETURII 

STATISTICS 

H£>ANAXl(MEtKE) 

MPC=AMAXi(MPC,KEO) 

MPO=AMAXi(MPO,-KED) 

SPC=SPC+TIMC*P1 

SPD=SPD+TINC*P2 

IF ( T IME. LT. TMAX 1 ) RETURN 

CCI=^CCI+CC 

CMI=CMI+CM 


RETURN 

END 
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7.10 FRESNEL LENS SOLAR COLLECTOR 


Solar Insolation (ST)- 
Air Velocity or Wind (WD)- 
Ambient Temperature (TA)—^| 
Fluid Inlet Temperature (TFI)- 



Cell Temperature (TC) 

Fluid Flow Rate (FMD) 

Outlet Fluid Temperature (T2) 
Thermal Power Obtained (PI) 


The Fresnel lens collector model performs a thermal analysis for a con- 
centrating photovoltaic array which tracks the sun. The array may be 
cooled passively or by forced air or fluid. Fins may be used on the back to 
increase convective heat transfer to the environment. Figures 7.10-1 and 
7.10-2 show the physical construction of the array and the equivalent 
thermal network for the focusing collector. The purpose of the model is to 
compute the cell temperature TC, and the fluid pump rate FMD when fluid 
cooling is used. The analysis is based on a similar thermal model in 
SOLCEL [4]. 
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Figure 7,10-1 Equivalent Thermal Network for Fresnel Lens Collector 


Temperature 
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FO 

BASIC EQUATIONS 

1} Energy absorbed by the collector per unit area 
QH = ST*TAU*{ABC-EFF) 

where 

ST = direct beam solar insolation 

TAU = lens transmittance 

ABC = cell absorptance 

EFF = nominal cell efficiency 

2) Heat balance equations for the thermal network of 7.10-1: 


*^h ^BOT 

^TOP ^T0P^^^"^ET0P^ " H|_(TS-TL) 

^BOT " ^B0T^^^“^EB0T^ " ^FIN ^ ^FLU 
%IN = Hpji^(TS-TA) = Hj(TS-TI) 

%LU " ^FLU^^^'^FLU^ 


3) The temperature variation in the insulating bond between the cell and 
the heat sink is given by a radial conduction equation for r>a: 


2 ^''’b 2- 

r — + <s*P T 




ar 


B 


0 , 


with 


d^B 

dr 


specified at the cell radius r=a and at the equivalent lens 


radius r=b. This equation may be solved using modified Bessel func- 
tions to compute Tg at r=a given the overall heat transfer coefficient 


■0 

■■4 ' ^ 
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FO 

and equivalent temperature of the collector minus bonding. Thus the 
cell, bonding, and collector thermal diagram reduces to 

• QH*AL.^ 

#— ww - WWW • 

TC TB j£ 


where 

AL = lens area = 

TE = (HyQp*Tg^Qp+HgQy*TggQ^)/(H^Qp+HgQ^) 

Input Specification Notes 


Minimum input parameters to specify FO are 


CM0 = 
TF0 = 
NT = 
HI = 
AL = 
NL = 
CL = 
CW = 
RC = 
FIR = 


Cooling mode option 

Outlet fluid temperature (CM0=2) 

Number of cooling tubes (CM0=2) 

Thermal conductivity/thickness of back insulation (CM0=2) 

Area of lens 

Number of lenses 

Collector length 

Collector width 

Radius of solar cell 

Cooling fin/collector area ratio (CM0=O) 


The user should check inputs for consistency with those used in the 
photovoltaic model PV. For example 

? 

FO collector area = CL*CW >AL*NL >PV array area 
FO concentration rat1o^= AL/(r*Rc2) i pv concentration ratio 
FO cell area = ir*RC^>PV array area/nunber of cells 


BCS 40262-1 


173 





Inputs/Port 

Description 

Units 

ST 

Direct beam solar insolation 

w/m^ 

WD 

Air or wind velocity (default = 0.) 

m/s 

TA 

Ambient temperature 

°C 

TFI 

Inlet fluid temperature 

°C 

TF0 

Specified outlet fluid temperature 

Or 

U 

CM0 

Cooling mode (default = 0.) 


9 

0 = natural air cooling 

1 = forced air cooling 

2 = fluid cooling 


AL 

Lens area 

m2 

TALI 

Lens transmittance (default = 1 .) 


ABC 

Cell absorptance (default = .95) 


EFF 

Nominal cell efficiency (default = .12) 


SPA 

Lens to heatsink space (default = .025) 

m 

EL 

Emittance of lens (default = .9) 


ES 

Heatsink emittance (default = .5) 


El 

Emittance of the back surface (default = .5) 


CW 

Collector width 

m 

CL 

Collector length 

m 

NL 

Number of lenses on collector 


RC 

Radius of solar cells (default = .025) 

m 

ABL 

Absorptance of the lens (default = .05) 

• 

SPT 

Specific heat of coolant (default = 4184) 

J7kg-K 

HI 

CondUctivity/thickness of the back insulation 
(default = 10^ for no insulation) 

w/m^-K 
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Inputs/Port 
(cont 'd) 

Description 

Units 

FIR 

Cooling fin to flat plate area ratio 
(default = 1 for no fin) 

- 

NT 

Number of cooling tubes 

- 

MFM 

Maximum fluid flow rate 

kg/s 

DT 

Diameter of cooling tubes (default = .015) 

m 

C0S 

Conductivity of heatsink, (default = 202) 

w/m-K 

THS 

Heatsink plate thickness (default = .003) 

m 

DEN 

Coolant density (default =980.) 

kg/m^ 

C0C 

Conductivity of the coolant (default = .657) 

w/m 

HC 

Conductivity/thickness of the cell insulator 
(default - 10^ for no insulation) 

w/m^-K 

CC 

Capital cost per unit collector area per year 

$/m^ 

CM 

Maintenance cost per year 

$ 

C0P 

Cost of operating power 

$/kwh 

Outputs/Port 

Description 

Units 

TC 

Cell temperature 

°C 

TS 

Heatsink temperature 

°C 

FMD 

Fluid flow rate 

kg/s 

T 1 

Inlet fluid temperature 

°C 

T 2 

Outlet fluid temperature 

°C 

PH 

Collector energy absorbed 

kw 

P 1 

Thermal energy collected 

kw 
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Description 

Reynolds number (air cooling) 

Reynolds number (fluid cooling) 

Last time at which the collector 
calculations were performed 

Operating Power used (state) 

CALCULATION SEQUENCE 

RL=(flL/ff)-5 

1) Solar Power Absorbed by the Collector 
QH = ST*TAU(ABC-EFF) 

PH = QH*AL*NL/1000. 

If QH<0.1 set TC = TA, FMD = PI = 0P = o and return 
If LTI = urn and I TFI - Tl U.l, return 
LTI = TIME 

2) Convert TA,TF0,TFI to °K 

3) Initial Temperature and Flow Rate Estimates 

TS = TA + QH/20 
TL = (TS + T0)*.5 
TF = (TFI + TF0)*.5 
TI = TL 

FMD = IFLU = 0 

If CM0 = 2 and TF0>TFI, IFLU = 1 
If IFLU =1, 


Outputs/Port 

(cont'd) 

REA 

REF 

LTI 

0P 


FO 

Units 


hr 

kwh 
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CALCULATION SEQUENCE (cont'd) 


RO = NT*SPT*(TF0-TFI)/(AL*NL) 
FMD = MIN(0.5*QH/R0,MFM) 

0 Iterate 4) to 8) three times: 


4) 

HTOP Heat Transfer Coefficient and TETOP 




r = .0552 



/hci'' 

\ 




= CNVC(TL,TA,WD,CL) 

Appendix 


\REA, 

1 

(2)-{3) 


HRl 

= RADC(TL,TSKY,EL,1.)*(TL-TSKY) 

Ibid, (8) 



TTl-ta} 



HI 

= HCl + HRl 



TM 

= .5*(TL+TS) 



HC2 

= (7.25xl0"^*TM+4.325xl0‘^)/SPA 



HR2 

= RADC(TS,TL,ES,EL) 

Ibid, (8) 


HL 

= HC2 + HR2 



HTOP 

= (1/Hl + 1/HL)*^ 



TETOP 

= TA+ST*(ABL+(1-TAU)*TAU*ABC)/H1 


5) 

Fin Factor and HFIN Heat Transfer Coefficient 



HC 

= CNVC(TI,TA,WD,CL) 

Ibid,(2)-(3) 


HR 

= RADC(TI,TA,EI,1.) 

Ibid,(8) 


FAC 

= 4.318 - 4.3375*EXP(-.26795*FIR) 

(First pass) 


HFIN 

= (1/HI + 1/(HC*FAC+HR))‘^ 


6) 

HFLU Heat 

Transfer Coefficient to Fluid and REF 



HFLU 

= 0. 
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FO 

CALCULATION SEQUENCE (conf d) 

If IFLU = 0 go to (7) 

/hfliX 

\REF / FMD,DEN.TF,C0C) Ibid,(5)-(6) 

7) HBOT Heat Transfer Coefficient and Temperature TEBOT 

HBOT = HFIN + HFLU 
TEBOT = (HFIN*TA+HFLU*TF)/HBOT 

8) Temperature and Flow Rate Updates 

H = HTOP + HBOT 
TE = (HTOP*TETOP+HBOT*TEBOT)/H 
TS = TE + QH/H 
TL = TS| - HTOP*(TS-TETOP)/HL 
TI = TS - HFIN(TS-TA)/HI 
QFLU = HFLU(TS-TF) 

FMD = 0. 

If QFLU >0, FMD = QFLU/RO 
If QFLU >MFM*RO, 

FMD = MFM 
RA = QFLU/MFM 

TF = TFI+RA*AL*NL*.5/(SPT*NT) 

9) Check for QFLU<0 

If QFLU <0 set IFLU = 0 and repeat (4)-(8) once 

10) Cell Temperature 
ALPH = H/(C0S*THS) 

X = SQRT(ALPH)*RC 
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CALCULATION SEQUENCE (cont'd) 



Y = SQRT(ALPH)*RL 
BETA = QH*AL/(2ir *C0S*THS*X) 

A = BETA*T1(Y)/(K1{X)*I1(Y)-K1(Y)*I1(X)) 

B = BETA*K1(Y)/(K1(X)*I1(Y)-K1(Y)*I1(X)) 

TB = A*K0(X)+B*I0(X)+TE 
TC = TB+QH*AL/(tt *RC^*HC) 
where I0,I1,K0,K1 are modified Bessel functions 

11) Output Calculation 
T2 = 2*TF-TFI 


Convert TC,TS,T1,T2,TA,TFI,TF0 to °C 
PI = QFLU*AL*NL/1000. 

TKP = 5.E-4*CL*CW 

/“■ 

0P=TKP+ I .0742*(CW*CL)‘^®^^*WD-^®^ 

\ 7 ,85xlO"^^*FMD^'®^^*DT^ ^*NT*CL 


if CM0 = 0 

if CM0 = 1 and WD>0 
if CM0 = 2 and FMD>0 


REFERENCES FOR FQ 

1 . 


2 . 


"Photovoltaic System Analysis Program-SOLCEL " Sandia 
Laboratories Report SAND77-1268, 1977. ’ 

M. W. Edenburn, "One Kilowatt Photovoltaic Sub- 
system Using Fresfiel Lens Concentrators," Paper 11.6, IEEE Photo- 
voltaic Specialists Conference, Baton Rouge, November 1976. 


BCS 40262-1 


179 


no noon non noonoooonooooonnnoooono 


CFC 


G 

G 

d 

C 

c 

c 

d 

C 

c 

Ci 

c; 

ci 

a 

c 

c 

c 

c 

c 

c 

c 


I » ABC, fcFF , SPA , EL ,E S , El ,CW ,CL , NL , 


■ 


PURPOSE 


THIS COMPONENT COMPUTES THE TEPERATURE OF 

the solar cell in the FRESNEL LENS COLL^^CTDR. 

AMD CALCULATES THE FLUID PUMP RATE I«EN*"fLUID 
COOLING IS USED PLUID 


jWRITTEN BY Y.K.CHANf 10~ 19-76, VERSION 1 

METHOD thermal ANALYSIS BASED ON SOLCfcL MODEL CF SANDIA 


CALL SEQUENCE 
OUTPUTS 
TC 
TS 
FMD 
T1 
T^ 

PH 
PI 
REA 
REF 
LTI 


OP 

OPD 

lOP 

INPUTS 

St 

NO 

TA 

tFI 

TFO 

CMO 


Ac 

Tau 

ABC 

EFF 

SPA 

EL 

ES 

El 

CM 

CL 

NL 

RC 

ABL 

SPT 

HI 


-CELL temperature, C 
-HEATSINK, temperature, C 
-FLUID FLOW RATE, KG/S 
-INLET FLUID TEMPERATURE, C 
-OUTLET FLUID TEMPERATURE,C 
-COLLECTOR ENERGY ABSORBED, KW 
-THERMAL POWER COLLECTED, KN 
-REYNOLDS NUMBER (AIR COOLING) 

-REYNOLDS NUMBER( FLUID COOLING) 

-LAST TIME AT WHICH THE COLLECTOR 
CALCULATION WAS PERFORMED, HR 
-ACCUMULATIVE OPERATING ENERGY, (STATE) , KWH 
-OPERATING POWER ,KS# 

-INTEGRAIOR CONTROL 

-GLOBAL SOLAR INSOLATICN,H/M2 
“AIR OR WIND VELOCITY, M/S, (DEFAULTED) 

-AMBIENT TEMPERATURE,C 
-SPECIFIED INLET FLUID TEMPERATURE.G 
-SPECIFIED OUTLET FLUID TEMPERATURE,C 
-COOLING MOOE(D£FAULT=0) 

0=NATURAL AIR COOLING 
l=FORCED AIR COOLING 
2=FLUID COOLING 
-LENS AREA, M2, ( DEFAULT=.09) 

-LENS TRANSMITTANCE4DEFAULT=1.) 

-CELL ABSORPTANCET DEFAULT=.95) 

-NOMIANAL CELL £FFIClENCY(OEFAULT=.12 ) 

SPACE,M,COEFAULT=.025) 
-EMITTANCE OF LENS (DEFAULT=.9) 

-HEATSINK EMITTANC£(DEFAULT=.5) 

-BACK SURFACE EM1TTANCECDEFAULT=.5) 

-COLLECTOR WIDTH, M 

-COLLECTOR LENGTH,M 

-NUMBER OF LENSES ON COLLECTOR 

-RADIUS OF SOLAR CtLLS,M, (0EFAULT=.025) 

-ABSORPTANCE of THfc LENS(0£FAULT=.05) 

SPECIFIC HEAT OF COOLANT, J/KG-K, i DE FAULT- 4184 I 
-CONiWCnVITY/THICANESS OF THE BACK lN^LA«n« 
W/M2— K, (DEFAULT^10**9 FOR NO INSULATION) * 
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Ci 

FIR 

C 


c 

NT 

L 

MFM 

c 

DT 

C 

CCS 

C 

iHs 

c 

DEN 

c 

COC 

c 

HC 

C 


c 

CC 

c 

CM 

c 

COP 


c 

c 

c 


FO 


c 

c 

c 


-COOLING FIN TO FLAI PLATE AREA RATIO 
(OEFAULT=l FOR NQ FINI 
-NUMBER OF CODLING TUBEB 
-MAXIMUM FLUID FLOW RATEtKG/S 
-DlAMETcR OF COOLING TUBESt M, ( DEFAULT= .015 1 

SINK,W/M-K,(DEFAULT=202) 
-heatsink PLATE THICKNESS ,M, i DEFAULT=. 003) 

-CUOLANT Density, KG/M3t (DEFAULT=960) 

COOLANT,W/M-K, (0EFAULT=.657) 
-CONOUCTIVITY/THICKNESS OF THE CELL INSULATOR, 
W/M2-K, (DEFaULT=10^*9 FOR NO INSULATION) 

i!"" COLLECTOR AREA PER Y£AR.$/M2 
“MAINTENANCE COST PER YEAR 

-COST OF operating POWER, $/KHH 


COMMON /CIMPL/IMPL,ICNT,ITEST 
COMMON /CTIME/TIME /CSIMUL/DUM(7) ,TMAX 
jCOMMON /CQST/CCAP,CMA,CPO 
REAL NL,NT,MFM,LT1 

INITIALIZATION 

IFIIMPL-GT.OGO TO 100 
IF( WO. EQ.. 99999 )WD=^0. 

IF (CMO.EQ.. 99999 )CM0=0. 

IFIAL.EC..99999)AL=.09 

IF(TAU.EQ.. 99999 )TAU-1. 

IF(ABC-E0..99999)A&C=.95 

IF(EFF.£Q..99999)£FF=.12 

IF C S PA . EQ. . 9999 9 ) SP A=. 025 

IFCEL.EQ.. 99999 )EL=.9 

IF4ES.EQ..99999)ES=.5 

IF(EI.£Q..99999)EI=.5 

IF (RC.EQ.. 99999 )RC=. 025 

IFIAaL.E0..99999)ABL=.05 

1F(SPT.EQ.. 99999 )SPT=4184 

IF(HI.EQ..99999)HI=1.E9 

IFCFIR.EQ..99999)FIR=1. 

IF(D T.EQ.. 99999 )DT=. 015 
IF (COS- EQ.. 99999 )C0S=202 
IFfTHS. EQ. -99999 )THS=. 003 
IF ( DEN. EO. . 99999 ) DEN=9&0 
IF (COC.EQ.. 99999 )COC=. 657 
IF (HC-EQ.. 99999 )HC=1.E9 
RL=SQRT(AL/3. 1415926) 

FAC=4-3 18-4.3375*EXP(— .26795»FIR) 
TMAX1=TMAX*. 99999 

100 CONTINUE 

SOLAR POWER ABSORBED BY THE COLLECTOR 

QH=S T*T AU*^ ( AaC-EFF ) 

PH=QH*AL*NL/1000. 

IF(QH.&T..01 )G0 TO 201 

TS=TA 

TC=TA 

OP0=^0. 
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C 

C 

C 


C 

C 

c 


c 

c 


c 

c 


c 

c 


FMD=0. 

P1=0. 

4»Ci TO 920 

TO 920 

CONVERT TA,TFO,TFI FROM CENTIGRADE TO KELVIN 

TA-lA+273 
TF0=TF0+275 
TFI = TFH^2?3 

INITIAL TEMPERATORE AND FLOW RATE ESTIMATES 

TS=TA+OH/20. 

TL = { TS+TA)*.5 
TF= ( 1FI+TF0)«.5 
TI = TL 
1FL0=0. 

FMD=0. 

RO=NT*SPT*(TFQ-TFi)/«AL*NL) 

FMO-MFM 

iterate heat coefficient CALCULATION THREE TIMES 

LOOP--0 
400 CONTINUE 

tetop.top equivalent temperature 

CALL CNVC4HCltREA,TL,TA,WDfCL) 

CALL RADC(HRl,rL,TSKY,EL,l.) 

HR 1=HR1* ( TL-TSKY )/ ( TL-TA ) 

HI=HC1+HR1 
TM = . 5>i^CTL+TS) 

HC2= 1 7. 25*1 . £-5*IM+^, 325 E-3 ) /S PA 
CALL RADC(HR2,TS,TL,ES,£LI 
HL=HC2+HR2 

HTOP =1 ./ ( 1 . /H 1+i . /HL ) 

TET0P=TA+ST*(ABL+( 1-TAU)*TAU*ABC )/Hl 

HEAT TRANSFER COEFFICIENT HFI?l^ 

CALL CNVC(HC2fR£,TI,TA,HDtCL| 

CALL RA0CIHR,TI,TA,EI,1.) 

HFIN=i./(l,/HI + l./lHC2*FAC+HR) ) 

transfer coefficient HELU and REYNOLDS NUMBER REF 
IF(IFLU.EQ.0)GC TO 700 

CALL »"LUClHFLU,REF,NT,OT,CW,COS,lHS,FMD,DEN,TF,eOC) 

700 WNTWof^ T^'"’E‘‘«1'RE ANO HEAT TRANSFER COEFFICIENT 

HaOT=HFIN+HFLU 
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c> n n non 



C 

c 


c 

c 


TEaoi=(HFLM+TA+HFLU*TF)/HBOT 


10 £ 


and flow rate 


UPDATE temperature 
H=HTOP+HB aT 
TE=( HI OP*TETCjP+HBOT*TEBOT ) /H 
TS=^TE+QH/H 

TL=TS-HTOP^CTii-TETGP)/HL 
TI -T S-HFIN* C T S~T A ) /H I 

QFLU =HFLU*( TS-TF} 

FQHM »rt C.l> , TETOP 

FMO=oI' ’ *'‘>tlO- 2 ./’. 5 X, 6 El 0 . 2 ) 


IF(QFLU.LE.0.)GD to 800 
IF(QFLU.GT. f MFM*RO ) )G0 TO 799 

fmd=qflu/ro 

SO TO 800 

799 FMD=MFM 
RA=QFLU/MFM 

T‘F=TFI'«-RA*AL^NL*.3/| SPT»ifiT I 

800 CONI INUE ' 

C 


L00P=L00P+1 

IF(LOOP.L£.2)GO TO 400 


CHECK FOR EFFECTIVE FLUID COOLING 

1F(QFLU.GE.0. )G0 TO 900 
IFLU=0 • 

TO 400 

900 CONTINUE 


C 

C 

C 



CELL temperature 


ALPH=H/CC0S*1HS) 
X=SQRT( AL PH)*RC 
Y=SQRTCALPH)*RL 


' A=QH* AL/ ( E.*3. 14159*C0S*THS*X 1 
CALL NA1SIUY,BI1Y,1) 

CALL NATSKHX.BKlXfl) 

CALL NAlSH(X,ailX,l) 

CALL NATSKl(Y,BKlY,t| 

CALL NATSKO(XtaKOXsi) 

CALL NATSIO(XfBIOXti) 

A-8E TA^Bi lY / ( BK1X*BI 1Y-8K1Y*BI IX ) 

a-aETA»8KlY/«BKlX»ailY-BKlY*BIlX) 

TB=A*aK0X+B*ai0X+TE 

TC=TB+QH*AL/(3,14159*RC*RC*HC| 


OUTPUT CALCULATION 

TC=TC-2?3 

TS=TS-273 

T1=TFI~273 

T2=2.*TF-TFI-273 

TA=TA-273 

TFI=TFI~273 

TF0~TF0-273 

P1=Q FLU* AL*NL/l 000. 




f H»TEtTSfTL»TI tOFLUrRO 


■s 
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REUO. 

.and. WD.GT.0.)R£1=.0742*((CW»CLI»*.2835»* 

IFiFMO.Lfc.O. )G0 TO 909 

909 


TKP= 5, fc-4-*CL*CW 
IF(IDP.NE.O)DPO=TKP+RE.1 
920 1F{T1M£.LT.TMAX1)R£TURN 
IFIIMPL-LT.2)R6TURJi 
CCAP:=CCAP+CC*AL*NL 
CMA=CMA-»^CM 
CPO=CPO>COP*OP 
RETURN 
END 
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7.11 FLAT PLATE SOLAR COLLECTOR 



Solar Insolation (ST) J 

Collector Tilt (TLT)_ 

Fluid Inlet Temp, (TFI) 

Air Velocity or Wind (WD) 

Ambient Temperature (TA) J 



Cell Temperature (TC) 

Fluid Flow Rate (FMD) 

Outlet Fluid Temperature (T2) 
Fluid Cooling Power (PI) 


The flat plate component performs a thermal analysis on a nonconcentrating 
photovoltaic array. Three types of cooling may be used: 


• Front surface cooling using natural or forced air. 

t Back surface cooling using natural or forced air with or without 
a finned back surface. 

t Fluid cooling using tubes on the back and N glass covers (N = 

0 . 1 , 2 , 3 ). 

Figures 7.11-1 and 7.11-2 show the physical construction of the array and 
the equivalent thermal network for the flat plate component. The purpose 
of the analysis is to compute the cell temperature TC and the fluid pump 
rate FMD when fluid cooling is used. The analysis is based on the flat 
plate thermal model in SOLCEL [4], except that an empirical equation due to 
Klein is used to compute the top loss coefficient for 1 to 3 glass covers. 
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TEMPERATURES 



'CELL 



'PLATE — 


INSUL — 


GLASS COVER(S)(OPTIONAL) 

AIR SPACE 
SOLAR CELL 
INSULATION 

•MOUNTING PLATE 

•INSULATION (OPTIONAL) 

aUID COOLING (OPTIONAL) 


'ANB 


Figure 7.11-1 Physical Diagram of Flat Plate Collector 



Figure 7.11-2 Equivalent Thermal Network for Flat Plate Collector 
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BASIC EOUATIQM<s 



The basic thential equations for the model are the heat balance equations 
for the network of Figure 7.11-2. 


Qh = ST*T„(AB - EFF) = 

W “ ^TOpf^CELL ■ 

«B0T = HbOtITcelL ' ^ebot) = «c (^celL ' TpuTE> 

' %IN * %LU 

‘^FIN = “fIN<We - ■^AMb) = “lITpLATE ' '^INSUl) 

%LU = ™D*P(TF0 - TFI) = HpLu(Tp^„g . TpLuj„) 

where H^jp, NgQ^. H^... denote heat transfer coefficients, and 
T|^ = transmittance of the N-covers 
AB - collector cell absorptance 
Eff “ nominal cell efficiency 

= equivalent bottom temp. (= Tg„g with no fluid cooling) 

^ P - fluid specific heat/unit cell area * No. of cooling tubes 
FLUID = average fluid temperature = (TF0 + TFI)/2. 


Input Specification NntP«; 

Minimum input parameters to specify FO are 


CM0 

TF0 

NG 

HI 

CW 

CL 

NT 

FIR 


Cooling mode option 

Outlet fluid temperature (CM0=2) 

Number of glass covers 

Sneclor^wfdt*!:'"'""^^ 

Collector length 
Number of cooling tube.s CCM0=2) 

Cooling fin/col lector area ratio (CM0=O) 


arlarw^rr '"T T these inputs (e.g., collector 

coaple^PV " 


187 


BCS 40262-1 




InDuts/Port 

Descriotion 

Units 

ST 

Global solar insolation 

w/m 

TLT 

Collector tilt 

Oeg 

WD 

Air or wind velocity (default = 0.) 

m/s 

TA 

Ambient drybulb temperature 

®C 

TFI 

Inlet fluid temperature 

®C 

TF0 

Specified outlet fluid temperature 

°C 

MFM 

Maximum fluid flow rate 

kg/s 

RE 

Tracking power request 

kw 

CM0 

Cooling mode (default = 0.) 

0 - natural air cooling 

1 = forced air cooling 

2 = fluid cooling 


m 

Number of, glass covers (default = 0.) 

- 

TN 

Transmittance of the N-covers 

- 

AB 

Collector cell absorptance (default = .9) 

- 

EFF 

Nominal cell efficiency (default = .12) 

- 

EC 

Emittance of cell (default =0.5) 

. 

EG 

Emittance of the glass covers (default = .9) 

- 

EP 

Emittance of the back surface (default = .9) 

- 

CW 

Collector width 

m 

CL 

Collector length 

m 

SPT 

Specific heat of coolant (default = 4184.) 

j/kg-K 

HI 

Conductivity/thickness of the back insulation 
(default = 10^ for no insulation) 

w/m^K 
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Inputs/Port 
{cont 'd) 

Description 

Units 

FIR 

Cooling fin to flat plate area ratio 
(default = 1. for no fin) 

- 

NT 

Number of cooling tubes (default = 1) 


DT 

Diameter of cooling tubes (default = .015) 

m 

C0P 

Conductivity of mounting plate (default = 202.) 

w/m-K 

THP 

Mounting plate thickness (default = .003) 

m 

OEN 

Coolant density (default = 980.) 

kg/m^ 

C0C 

Conductivity of the coolant (default = .657) 

w/m-K 

HC 

Conductivity/thickness for cell insulation 
(default = 10^ for no insulation) 

w/m^-K 

CC 

Capital cost per unit area per year 

$/m^ 

CM 

Maintenance cost per year 

$ 

CP0 

Cost of operating power 

$/kwh 

Outputs/Port 

Description 

Units 

TC 

Cell temperature 

°C 

TP 

Mounting plate temperature 

°C 

FMD 

Fluid flow rate 

kg/s 

T1 

Inlet fluid temperature 

°C 

T2 

Outlet fluid temperature 

°C 

PH 

Collector energy absorbed 

kw 

PI 

Thermal energy collected 

kw 

0P 

Operating power used (state) 

kwh 

REA 

Reynolds number (air cooling) 


REF 

Reynolds number (fluid cooling) 


LTI 

Last time at which the flat plate array 
calculations were performed (used internally) 

hr 
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CALCULATION SEQUENCE 




1) Solar power absorbed by the collector 
QH = ST*TN*(AB - EFF) 

PH = QH*CL^CW;i000 

If QH<0.1 set TC = TA, FMD = PI = OP = 0 and return 
LTI = TIME and ITFI - T1 I < . 1 , return 
LTI = TIME 


2) Convert TA, TF0. TFI to \ 


3) Initial temperature and flow rate estimates 
TC = TA + QH/20 
TI = (TC + TA)*.5 
TF = (TFI+TF0)*.5 
TP = TI 


FMD = 0 
IFLU = 0 

If CM0 - 2 and TF0>TFI, IFLU = 1 
If IFLU =1, 

RO = NT*SPT*(TF0 - TFI)/CW*CL 
FMD = MIN(MFM,0.8*QH/R0) 

• Iterate 4) to 8) three times: 

4) HTOP heat transfer coefficient and REA 
TSKY = .0552*TA^-^ 

1= CNVC(TC, TA, WD, CL) 

If NG = 0, 



See (2)-(3) in Appendix 
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FP 

CALCULATIONS (cont'd) 

HRl = RADC{TC,TSKY.ECa.)*(TC-TSKY) Ibid, (8) 

TC-TA) 

HTOP = HCl + HRl 
If NG>0, 

HTOP = !iTGLAS{N,TA,TC.HCl,EC,EG,TLT) Ibid, (7) 

5) Fin factor FAC and HFIN heat transfer coefficient 

HC2 = CNVC(TI, TA, WD, CL) Ibid. (3) 

HR2 = RADC(TI, TA, EP, 1.) Ibid, (8) 

FAC = 4.318 - 4.3375*exp(- .26795*FIR) (first pass) 

HFIN = (1/HI + 1/(HC2*FAC + HR2))'^ 

6) HFLU heat transfer coefficient to fluid and REF 

HFLU =0. 

If IFLU = 0 go to 7) 

= FLUC(NT,DT,DW,C0P,THP,FMD,DEN.TF,C(iJC) Ibid,(5)-(6) 

7) HBOT heat transfer coefficient and equivalent temperature TEBOT 

HBOT = (1/HC + 1/(HFIN + HFLU))’^ 

TEBOT = (HFIN*TA + HFLU*TF)/(HFIN + HFLU) 

8) Temperature and flow rate updates 

TC = (QH + HT0P*TA + HB0T*TEB0T)/(HT0P + HBOT) 

TP = TC - HB0T*(TC-TEB0T)/HC 
TI = TP - HFIN*(TP - TA)/HI 
QFLU = HFLU*(TP - TF) 
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FP 

CALCULATIONS (cont'd) 

•"MD =/0. if QFLU<0. 

\QFLU/R0 if QFLU>0. 

If QFLU > MFM*RO, 

FMD = MFM 
RA = QFLU/MFM 

TF = TFI + RA*CL*CW*.5/(SPT*NT) 

9) Check for QFLU<0 

If QFLU<0 set IFLU = 0 and repeat 4) to 8 ) once 

10) Output calculations 

T2 = 2*TF - TFI 

Convert TC,TP.T1,T2,TA,TFI,TF0 to °C 
PI = QFLU*CL*CW/1000 
If CM0 = 0 
0P = RE 

If CM0 = 1 and WDX) 

0P = RE+.0742*(CW*CL)*^®^^*WD*^®^ 

If CM0 = 2 and FMD>0 

0P = RE + 7.85 X 10"^^*FMD^*®®®*DT^~^*^*^^J*NT*CL 


REFERENCES FOR FP 

wiley. 19 m!® -5°1ar Energy Thermal 

international 
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SUaROUT IN E FP I TC , TP , FMD, T1 1 T2 , PH ,Pl, OP , OPO, lOP ,R£A «R£F , LTIf 
1 iTtTLT»WDflA»TFl,lFOtMFM,,REfCMQtN&tTNfABf 
■<. £FF»£C,EG,tP,CW,CL,SPT,HI,FIR,NT,OT,COP,THP,DEli, 

3 COCtHCtCCtCNtCPO) 

PURPOSE THIS COMPONENT PERFORMS A THERMAL ANALYSIS 
ON A NONCCiNCENTRATiNG PHOTOVOLTAIC ARRAY. 

THREE TYPES OF COCLING MAY BE USED 

FRONT SURFACE COOLING USING NATURAL OR FORCED AIR 
SACK SURFACE COOLING USING NATURAL OR FORCED AIR 
WITH OR WITHOUT FINS. 

FLUID COOLING USING TUBES ON THE BACK AND NG 
GLASS COVERS (NG>0*l»2t3) . 

WRITTEN BY Y.K.CHANt 11-6-78 t VERSION 1 


METHOD BASED ON THE FLAT PLATE THERMAL MODEL IN SOLCELt 

EXCEPT THAT AN EMPIRICAL EQUATION DUE TC KLEIN IS USED 
TO COMPUTE THE TOP LOSS COEFFICIENT FOR I TO 3 
GLASS COVERS 
CALLING SEQUENCE 
OUTPUTS 

ST -GLOBAL SOLAR lNSOLATIONvW/M2 
TC -CELL TEMPERATURE, C 
FMO -FLUID FLOW RATE, KG/S 
T1 -INLET FLUID TEMPERA TURE,C 
T2 -OUTLET FLUID TEMPERATURE, C 
PH -COLLECTOR ENERGY ABSORBED, KW 
Pi -THERMAL ENERGY COLLECTED, KW 
OP -OPERATING POWER USEOl STATE) , KWH 
REA -REYNOLDS NUMBERCAIR COOLING) 

HEF -REYNOLDS NUMBER (FLUID COOLING) 

CTI -LAST TIME AT WHICH THE FLAT PLATE ARRAY 

CALCULATIONS WERE PERFORMEDCUSEO INTERNALLY) 

IMDIITC • 


INPUTS 

TLT 

WD 

TA 

IFI 

TFO 

MFM 

RE 

CMO 


-COLLECTOR TILT, DEGREES 

-AIR OR WIND VELOCITY, M/S, (DEFAULT=0. ) 

-AMBIENT ORYBULB TEMPERATURE ,C 
-SPECIFIED INLET FLUID TEMPERATURE, C 
-SPECIFIED OUTLET FLUID TEMPERATURE, C 
-MAXIMUM FLUID FLOW RATE,KG/S 
-TRACKING POWER REQUEST,KW 
-COOLING MODE(DEFAULT=0) 

0=NATURAL AIR COOLING 
l=FORCED AIR COOLING 
2=FLUiO COOLING 

-NUMBER OF GLASS COVERSiDEFAULT=:0 ) 
-transmittance of the NG GLASS COVERS 
-COLLECTOR CELL ABSORPTANCEC DEFAULT=.9 ) 
-NOMINAL CELL EFFICIENCYC0EFAULT=.12) 
-EM17TANCE OF CELLIDEFAULT=.5) 

-EMITTANCE OF GLASS COVERS(OEFAULT=.9) 
-EMITTANCE OF THE BACK SURFACE! DEFAULT^. 9) 
-collector WIDTH, M 
-COLLECTOR LENGTH, M 

-SPECIFIC HEAT OF COOLANT, J/KG-K,(0EFAULT=Ai84) 
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HI 

FIR 

til 

DT 

COP 

THP 

OiEN 

CGC 

HC 

CC 

CM 

CPO 



-CGMOUCTIVlTy/THICKMESS OF THE BACK INSULATIONt H/M2-K, 
(DEFAULT=l.E9 FDR MO IMSULATION) 

“COOLlMG FIM TO FLAT PLATE AREA RATIO! OEFAULT=l. FOR NO FIN' 
-NUMBER OF COOLING TUBESlOEFAULT^l) ^ 

-DIAMETER OF COOLING I UBES^M « IDEFAULT= .015 ) 

-CONDUCTIVITY OF MOUNTING PLATE,W/M-K, (0EFAULT=202) 

-MOUNTING PLATE THICKNESStMt ( DEFAULT=.003| 

-COOLANT OENSITYf KG/M3 , ( 0EFAULT=9a0 ) 

-CONDUCTIVITY OF COOLANTtW/M-K, ( DEFAULT=.657 
-CONDUCTIVITY/THICKNESS FOR CELL iNSULATIONt W/M2-Kt 
(D£FAULT=I.E9 FOR NO INSULATION) 

-CAPITAL COST PER UNIT AREA PER YEAR,$/M2 
-maintenance COST PER YEAR«$ 

-COST OF OPERATING POWER, $/KWH 


COMMON /CIMPL/IMPL 

COMMON /CTIME/TIME /CS1MUL/DUNI7 ) ,TMAX 
COMMON /COST/CCAP,CMA,CPOS 
REAL LTI,MFM,NG,NT 

INITIALIZATION 

IFCIMPL.GT.OIGO TO 100 
IF ( WD. EG . .99999 ) W0=^0. 
IFICMG.EQ..99999)CM0=0. 

IFCNG.EC.. 99999 )NG=0. 

IF(AB.EG..99999) A8=.9 
IF(EFF.EQ..99999)EFF=.12 
IF(tC.EG..99999)EC=.5 
IF(EG.EQ..99999)£G=.9 
IF(EP.£Q..99999 )EP=.9 
IF ( S PT. EG. -9999^9 i SPT=4 184 
1F(HI.EQ..99999)HI=1.£9 
IF(F1R. EC.. 99999) F1R=1. 

IFCNT. EC.. 99999 )NT=1 
IF(DT. EG-. 99999 )DT=. 015 
IFCCOP-EC-.99999)COP=202. 

IF(THP.EQ..99999)THP=.003 
IF(DEN. £0. -99999 )D£N=980 
IFIC0C-EG--99999)C0C=-657 
IF(HC.EQ..99999)HC=1.E9 
TMAX 1=TMA X* . 99999 
FAC=4.318-4.3375*EXP4-.26795*FIR) 

100 CONTINUE 


SOLAR POWER ABSORBED BY COLLECTOR 

QH=ST^TN*tAB-£FF) 

PH=QH*CL*CW/1000. 

IF(QH.GT.0.0I)GC TO 201 

TP=TA 

0PD=0. 

TC=TA 

FMD=0. 

P1=0. 

GO TO 920 

201 IF((LTl.EQ.TiME).ANO.(ABSfTFI-Tl).LT..I))&0 TO 920 
LTI=TIME 
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c 

c 

c 


CONVfcftT TAtTFO,TFI TO KELVIN 


FP 


C 

C 

C 


lA=TA+273 

TF0=TF0+2T3 

TFI=TFI+273 


C 

c 

c 


c 

c 

c 

c 


c 

c 

c 


initial temperature and flow rate estimates 

TC=TA+QH/20, 

TI = C1C-HA)*,5 
TF=(TFI+TF0)*.S 

tp=ti 

FMD=0. 

IFLU=0 

RO=N 1»SpT* C TFO-1 FI ) / ( C W»CL ) 

FMD=MFM V.LI 

ITEIUTE HEAl transfer COEFFICIENT CAECULATION THREE TIMES 
L00P=0 

400 CONTINUE 

HTOP, HEAT TRANSFER COEFFICIENT AND REA. REVNQLDS NUMBER 

TSKY=«0352*( TA**1.5) 

CALL CNVC(HC1,REA,TC,TA,W0,CL> 

IFCNG.GT.O. )G0 TO AOl 
CALL RA0C(HR1,TC,TSKY,EC,1.) 

HRl=HRi*CTC-TSKY)/CTC-TAi 
htop=hci+hri 

GO TO 402 

401 HTOP=HT&LAS(NGf TA.TC.HCl.Pr cr xi ^ i 

402 CONTINUE * ' ' ^»HC1,£C, EG,TL1 ) 


C 

C 

c 


hfin heat transfer coefficient 

call RA0CCHR2,TI,TA,EP,1.) 
HFIN=1./(1./hi+1./(hC2*FAC-i-HR2I) 


X* 


c 

c 

c 


HFEU. HEAT TRANSFER COEFFICIENT TO FLUID AND REF.REVNOLDS NUMBER 

hflu=o. 

IF(IFLU.£Q,0)G0 to 700 

CALL FI-OCCHFLU.REF.NT.OT.CH.CQF.THP.FMD.DEN.TF.COC) 

EDUIVALENT bottom TEMPERATURE TEBOT AND HEAT TRANSFER COEFFICIENT H, 
700 CONTINUE «=nii mi 

H^OT=l«/ I 1 ,/hc+1*/(HFIN+HFLU) ) 

TEB0T=( HF m*TA+HFLU^TF )/ ( HFIN+HF LUl 
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UPDATE TtMPtRATURE AND FLOW RATE 

1C = ( QH-^mOP*l A+HBOIMEBOT l/CHTOP-fHBOT) 
TP=TC-HBDT*(TC“TEaOTl/HC 
TI=TP-HF1N*(TP-TA)/HI 
QFLU=HFLU*( TP-TF ) 

FM0=0. 

IFCQFLJ.LE.O. )GO TO 800 
IF(QFLU.&T.(MFM*R0*)G0 to 799 
FMD=QFLU/RQ 
GO TO 800 

799 FMD=MFM 

ra=qflu/mfm 

TF=TFi+RA*CL*CW*.3/CSPT*JiT) 

800 CONTINUE 
C 



L00P=LDUP+1 

IE(L00P.L£,2)&0 to 400 
C 

C CHECK FOR EFFECTIVE FLUID COOLING 

C 

1F(QFLU.GE.0. )G0 TO 900 
IFLU=0 
GO TO 400 
900 CONTINUE 
C 

C OUTPUT CALCULATION 

C 

TC=lC-273. 

TP=TP~273. 

Tl=TFI-273, 

T2=2.*TF-TFI-273. 

TA=TA-273. 

TFI=TF1-273. 

TFO=TFO-273 . 


Pl=QFLU#CL^CW/1000. 

RE1=0. 


IF(ABSICM0-1.)„LE. 
1 W0*».567 


1 .AND, WO.GT.O. )Rtl=.0742*(( CW*CL)»*.2835 


IFIFMO.LE.O. )G0 TO 9C9 
909 CONTINUE 


♦♦(-4.702) ) 


IF(IOP.N£.0)OPO=RE+RE1 
920 IF(TIME.LT.TMAX1)RETURN 
IFC IMPL .LT. 2 ) RETURN 
CCAP=CCAP+CC^CL^CW 
CMA=CMA+CM 
CPOS=CPOS^CPO^OP 


RETURN 

ENO 


)♦ 
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7.12 ONE DIA/IENSION TABLE LOOKUP 



FIN 


Description 

Tabular values of function 

Input? 

Parameter/ Port 

^If'l Input quantity 

ABS(AN) < 0.5 for equispaced interpolation 
(AN < 0 prevents extrapolation) 

Outputs 
Variable/ Port 

Output quantity 
Calculation Seguenop 

F0 = FTA(FIN) 



NOTE: A maximum of 18 points is allowed in the table. 
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FU 

SUBROUTINE FU(FTA,FQ,FIN,AN) 

PURPOSE - TO CALCULATE OUTPUT FO AS AN ARBITRARY FUNCTION OF 
INPUT FIN USING TABULAR INPUT FTA GIVING FO=fFCFIN) 

METHOD - SELF EXPLANATORY 


LIMITATIONS - MAXIMUM ARRAY SIZE IS 18 

WRITTEN BY - ADAM LLOYD LATEST REVISION APRIL 77 


INPUT/OUTPUT LIST 


FTA 

FC 

FIN 

AN 


TABULAR INPUT F0=F(F1N) ANY INPUT TABLE 

OUTPUT any output VAR 

input any input VAR 

SET ABSCAN) .GT.0.5 FOR UNEQUAL SPACED TABLE DATA INPUT 

SET ABS(AN).LE.0.5 FOR EQUI-SPACED TABLE DATA 
A NEGATIVE VALUE OF AN WILL 
PREVENT EXTRAPOLATION BEYOND 
TABLE LIMITS 


DIMENSION FTAU) 

NA= SIGN(FTA(2),AN) 

NB=FTAl2)+4 

N=1 

IF(ASS(AN).LE.d.S) N=0 

FO=TdLUl(FIN,FTA{4),FTA(NB),N,NAI 

RETURN 

END 
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7.13 VNO DIMENSION TABLE LOOKUP 


Inputs 

Parameter/ Port 


Outputs 
Variable/ Port 


Table of functional relationships (maximum 
number of table values = 144) 


Input quantity (primary) 

Input quantity (secondary) 

ABS(AN) < 0.5 for equal spaced FNA data^t 
ABS(BN) <0.5 for equal spaced FNB data* 


Output quantity 


I leu I at ion Sequence 


FO = FTA(FNA,FNB) 


* A negative value for AN or BN prevents extrapolation beyond the table 
bounvdaries. 
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CFV 


SUBROUTINE F V C F TA ,F0 #FNA,FNB ,AN, bN) 



PURPOSE - 




METHOD - TWO DIMENSIONAL TABLE LOOKUP 


limitations - MAX ALLOWABLE SIZE OE TABULAR ARRAY IS I2XIZ. 


WRITTEN BY - GEORGE OULEBA 


INPUT/OUTPUT LIST 


latest revision may 76 


FTA 

FO 

FNA 

FNB 

AN 


ANY 

ANY 

ANY 


INPUT TABU 
OUTPUT VAR 
INPUT VAR 
INPUT VAR 
INPUT PARM 


TABULAR INPUT 
OUTPUT 
INPUT A 
INPUT B 

UNEQUAL SPACED FNA DATA- I 
B. SET = Fi?THo“^ 

»'U1NI IS TO BE USED UPON EXTRAPOLATION, 

Dimension ftacii 
N 1=FTA(3J^4 
N;d=FTA(2|+FTA(3)+4 
N3=FTA{2) 

NiA=FTA(3) 

N£>= S1GN(FTA(2) ,AN) 

N6= SIGN (FTA (3) ,BN) 

NAN=1 

IF ( A faS C AN ) • Lt ,0 • 5 ) NAN~0 
NBN=l 

IF{A8S(BN).LE,0.5| NBN=0 

F0=r8LUZCFMA.F«.ETAlMl),FTA(A).ETAI,2|.NAN,MBN.N5.N6.M^ 

END 


■#. » 
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7.14 AC INDUCTION GENERATOR 


POWER (PI) 

INPUT EFFICIENCY (EFl) 
INPUT MAX. POWER (MPl) 



POWER (P2) 

ROTOR SPEED (RS) 

OUTPUT EFFICIENCY (EF2) 
OUTPUT MAX. POWER (MP2) 


e induction generator produces electrical power proportional to rotor slip 

^y"'=''™nous speed. This relationship 

0 0 Ir P--eters 

0 power losses are modeled: a constant multiplicative term due to resistive 

aTbld friction. Default parameters 

on a conventional squirrel-cage induction motor/generator machine 
his component can also be used as a synchronous generator with RAS<.01. 

Basic Equations 

Output power P2 and rotor speed RS are computed from the following equations; 
P2 = EE*(P1-C*RS^) 

Pg_ _ (RS/RSY-1) 

RAP Ras (Power is proportional to slip) 

where EE = electrical efficiency 


Minimum input parameters to specify GE are 
RAP = rated output power, 

SR = stator resistance 

Note: SR may be chosen to obtain a given efficiency EE using 

SR = V0‘=(1/EE-1)/(RAP*1OOO) 


BCS 40262-1 


201 



GE 


Inouts 

Parameter /Port 

Description 

uoils 

P 1 

input power 

kw 

RAP 

Rated output power 

kw 

RSY 

Synchronous irotor speed (D = 1800) 

rpm 

RAS 

Rated power slip (D = 0.05) 

- 

DA 

Mechanical damping ID = 0.0) 

jou 1 e-sec 

SR 

Internal stator resistance (D -6.4/RAP) 

ohms 

V0 

Rated bus voltage (D = 400) 

vol ts 

EF 1 

Input product efficiency 

- 

MP 1 

/Vlaximum input discharge rate ID = 1x10®) 

kw 

CC 

Capital cost/year 

$ 

CW 

Maintenance cost/year 

$ 

Outputs 
Variable/Port 
P 2 

Output power 

kw 

EE 

Electrical efficiency 

- 

RS 

Rotor speed 

rpm 

PL 

Power 1 OSS 

kw 

CM 

U. 

IXI 

Output product efficiency 

- 

MP 2 

Maximum output discharge rate 

kw 

Statistics 

AAPN 

Maximum output power/rated power 

kw 

SP 

Total output energy 

kwh 


D - Default values supplied. 
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GE 


1 ) First pass only 


EFF = 1 


EE = 


= RAP^'«-1OOO/V0 


RAP+SR-JH^^^/1000 


2) If PI = 0 set P2 =0, RS = RSY and go to 4) 
Compute rotor speed (i) In rad/sec using 


EE(P1-}^1000 - 0) WA ) (lD/0) - 1) 

Q 

RAPJflOOO “ RAS 

with 0) = RSY-5f(2TT/60) 
o 


3) Compute RS and output power 
RS = U)’}fr(60/2Tn 
P2 = RAP(RS/RSY-1)/RAS 
P2 > RAP C> DIAGNOSTIC 
EFF = P2/P1 


4) Compute loss, efficiency terms 
PL = P1-P2 
EF2 = EF1-5«FF 


5) Confute maximum output rate 
MP2 = MINI RAP, MP1-5«€FF) 


6) Compute Statistics and Costs 
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CGe 


c 

c 

c 

c 

c 

c 

Cl 

c 

Cl 

c 

c 

c 

C I 

c i 

c i 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 




GE 


Rsy,ras,oa,sr,vo, 


PURPQSt 

METHOD 


model AC INOUCTIOM GENERATOR 

OUTPUT ‘pCMErI'^ ROTOR'*sP£L^tq*r^^‘^‘^*^* ™ COMPUTE 

PROPORTIOm;!: TO m?. “ COMPUTED ASSUMING POWER is 


written by a.m. marren 


CALL SEQUENCE 
OUTPUTS 

! EE 

i RS 

PL 
£F2 
PM 2 
PMN 
SP 

INPUTS 

PI 

RAP 

RSY 

RAS 

OA 

SR 

VO 

£F1 

PMl 

CCI 

CMI 


VERSION It MARCH 16 


OUTPUT POWER, KW 

efficiency 

ROTOR SPEED, RPM 
POWER LOSS, KW 
OUTPUT PRODUCT EFFICIENCY 
maximum OUTPUT POWER, Kw 

T^Jr. OUTPUT POWER 

total OUTPUT ENERGY, KWH 


RATED POWER 


- INPUT POWER, KW 

- RATED OUTPUT POWER, KW 

- SYNCHRONOUS ROTOR SPEED, RPMN 

- RATED POWER SLIP (OEFAU|!t = OB, 

- Mechanical damping, joulLsec ’ 

- STATOR RESISTANCE, OHMS 

- RATED BUS VOLTAGE, VOLTS 

- INPUT product efficiency 

- MAXIMUM INPUT POWER, KW 

- CAPITAL COST/ YEAR, $ 

- MAINTENANCE COST/ YEAR, $ 


COMMON /CIMPL/ IMPL,ICNT /CTIMF/ True 


GO TO 10 


IF( IMPL.GT.O) 

EFF - 1 . 

TMAXI = TMAX=^ >99999 
IFCRSY.EQi, >99999) RSY = 
>99999) 
>99999) 
•99999) 
.99999) 
.99999) 


1F(RAS.EQ> 

IPIDA .eq, 

IFtSR >EQ> 

IF(VO ,eq. 

if<phi>eq. 

PMN =0.0 
SP =0>0 

RATI s£ RAP*lCi00./V0 

EE = RAP/I RAP ♦ SR*.001*=RATI»*2) 


1800. 
RAS = .05 
OA = 0. 

SR = 6.4/RAP 
VO = 400 • 

PMl = l.Eio 


10 


IF( PI.GT. 
P2 =0.0 


COMPUTE ROTOR SPEED AND OUTPUT 


0>) GO TO 20 


POWER 
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o U o o 


PL -0,0 
RS - RSY 
GO TO 30 


GE 


#• 


20 A = RAP/(fcE*RAS) 

P2 = kap*<rs/rsy -1.1/RAS 
IF 4 P2,GT,RAP,AND.IHPL,E0,2) 
FORM ATI 1H0» A-0X*37HG£NIERAT0R 


100 


•and. IMPL.EQ.2)ICNT=ICMT+1 


IFIP2.GT.RAP 
PL = PI - P2 
EFF = P2/P1 
30 EF2 = EF1»EFF 

PM2 = AMINllRAPt PMl»EFF) 

IF! IMPL.LE.I) RETURN^^^^^^*^^ 
PMN = AMAXKPMN, P2/RAPI 
SP = SP + P2».5»TINC 


WRnE|6,100) 

OUTPUT EXCtiEOS RATED POWER /I 


C 


IFI TIME.LT.TMAXI) 

tc = cc + cci 

CM = CM + CM! 


COST SUMMATION 
RETURN 


RETURN 

END 
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7.15 FIXED RATIO TRANSMISSION 



POWER (PI) 

OUTPUT ROTOR SPEED (RS2 
MAX. INPUT POWER (MPl) 
INPUT EFFICIENCY (EFl) 



POWER (P2) 

MAX. OUTPUT POWER (MP2) 
INPUT ROTOR SPEED (RSI) 
OUTPUT EFFICIENCY (EF2) 


This component models a fixed gear ratio transmission. Power losses are mo- 
deled by a table lookup depending on input power. Rotor input speed is used 
as a feedback variable. 



FIGURE 7,15: FIXED GEAR POWER LOSS 
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Tables 

OescriDtion 

Units 

PL0 

Power loss versus input power 

kw 


Inputs 

Parameter /Port 
GR* 

Gear ratio 



RS 2 

Output rotor speed 


rpm 

P 1 

Input power 


kw 

EF 1 

Input product efficiency 

00 

o 

t— 1 

X 

II 

- 

MP 1 

Maximum input power (Default 

kw 

CC 

Capital cost/year 


$ 

CM 

Maintenance cost/year 


$ 


Outputs 



Variable/Port 



P 2 

Output power 

kw 

T0 

Output torque 

ft-lb 

PL 

Power loss 

kw 

EF 2 

Output product efficiency 


MP 2 

Maximum output power 

kw 

RS 1 

Input rotor speed 

rpm 

* A value for GR 

is supplied when connecting to 

the wind turbine component 
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Calculat ion Seauenne 




1) MP2 = AAPl - PL0(MP1) (First Pass Only) 
I Pi S 0/ set PL = P2 - 0 and go to 2) 

PL = PL0(P1) 

P2 = Pi - PL 
RSI = RS2/GR 
EF2 = EFl-5fP2/Pl 

2) T0 = P2^<-737.6/ (RS2*2 7T/60) 

3) Compute Costs 




208 


BCS 40262-1 


GR 


SUBROUTINE GR(PL0.P2.T0,PL,EFZ.PH2,RS1,GRA.RS2,P1.EF1.PM1.CCI .CMI) 

PURPOSE MODEL A FIXED GEAR RATIO TRANSMISSION 

method POWER LOSSES ARE INPUT AS A FUNCTION OF INPUT POWER PI. 


jWRITTEN BY A.W. WARREN 


CALL SEQUENCE 
TABLES 

PLO — POWER LOSS IN KW VERSUS INPUT POWER IN KW 


VERSION 1, MARCH 16 19: 


OUTPUTS 

P2 

TO 

PL 

EF2 

PM2 

RSI 

INPUTS 

GRA 

RS2 

Pi 

EFl 

PM I 

CCI 

CMl 


OUTPUT POWER, KW 
OUTPUT TORQUE, FT-LB 
POWER LOSS, KW 
OUTPUT PRODUCT EFFICIENCY 
MAXIMUM OUTPUT POWER, KW 
INPUT ROTOR SPEED, RPM 


GEAR RATIO 

OUTPUT ROTOR SPEED, RPM 
INPUT POWER, KW 
INPUT PRODUCT EFFICIENCY 
MAXIMUM INPUT POWER, KW 
CAPITAL COST / YEAR, $ 
MAINTENANCE COST / YEAR, T 


dimension PL0(1) 

COMMON /CIMPL/IMPL /CTIME/ TIME 

COMMON /COST/CC,CM,CO,CV /CSIMUL/ DUM|7),TMAX 

INITIALIZATION 

NP = PL0(2| 

IF( IMPL.GT.O) GO TO 10 
TMAXI = -99999+TMAX 
EF2=I. 

RS2s=l. 

IF(PMl.tO. .99999) PMl=l.E10 
PM2 = PMl 

Pl.0(3*«P, , p „2 = PMl-TaU»l(PHl,PL0K..PL0(4*MP,,l,-NP, 

PL-0. POWER LOSS AND ROTOR SPEED CALUCATIONS 

P2=0. 

IFtPl .EG. 0.) GO TO 20 

PL = TBLU1(P1,PL0(4) ,PL0(4+NP) ,l,HiPI 

EF2 = EFl^PZ/ PI 
RSI = RS2/GRA 

1FCRS2 .GT. 0.) TO = P2*7043./RS2 

COST SUMMATION 
IFdMPL.LE.l) RETURN 
IF (TIME.LE. TMAXI) RETURN 

40262-1 


• cc = cc ♦ CCI 

CM s CM ♦ CMI 

R£TUflN 

END 
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7.16 HISTOGRAM 


HG 



The Input quantity Is monitored during a SI.WJUTE analysis. When time reaches 

T*AX a plotted histogram Is produced with 16 Intervals that span the range 
from FLO to FUP. 


Inputs 

! ■ ■ 

Variable/Pnrf- 

FIN 

FUP 

FLO 

F1,...F16^ 

FA^ 


Description 
Input quantity to be monitored 
Upper limit for histogram 
Lower limit for histogram 
Array containing histogram data 
Measurement interval 


Outputs 

Variable/Port 

AV 

SD 

SAM 


Mean value (running sum during simulation) 
Standard deviation (running sum squared) 
Number of samples 


These quantities do not require data input values. 
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o o o o o n o non o 


CHG 


SUBROUTINE HGISAMP,AV.SD,Fl,F2.F3,F-i.F5,F6,F7,F8.F9.Fl0,FU, 

1 Fl2,F13,F14,Fl5,F16*FAf FXNtFUP,FLO ) 

VbRSlON 2. REVISED; MARCH 1977 

cS^LL^StOUENcr''^'’ * '*‘**'*"^ histogram OF AM IMPUT SfcOUEMCt 




f ^ 

■W > 


50 


AV 

SO 

Fl-Flb 

FA 

FUP 

FLO 

FIM 


SAMP- OUTPUT NUMBER OF SAMPLES 


OUTPUT AVERAGE (RUNNING SUM) 

OUTPUT STANDARD DEVIATION (RUNNING SUM SQUARED) 
ARRAY WITH NUMBER OF OCCURENCES IN EACH INTERVAL 
OUTPUT CONTAINING MEASUREMENT INTERVAL 
INPUT SPECIFYING UPPER MEASUREMENT LIMIT 
INPUT SPECIFYING LOWER MEASUREMENT LIMIT 
INPUT MEASUREMENT 


DIMENSION F1(I6),T01(8} ,AX1(16) 
DIMENSION GRAPH( 114t46) 

COMMON GRAPH 


COMM ON/C T IM E/ T I ME/CS I MUL/OUM ( 7 ) » TM AX 
COMMON/CCVRLY/DUMM (3 ) ,CPUSEC /CIMPL/IMPL 
DATA blank, VERT, HORU.POINT/IH , IHI ,1H-, IH*/ 
IF(IMPL.GT.O) GO TO 100 
DO 50 1=1,16 
F1(I)=0. 

FA=4FUP-FL0)/14* 


SD=0. 


AV =0.0 
SAMP=O.Cl 
100 CONTINUE 

IFdMPL.LT.2l RETURN 

DO 200 1=1,16 

L=I 

FAX=FLC+(I-1)*FA 
IF(FIN.LE.FAX) GO TO 300 
200 CONTINUE 
300 F1(L)=F1(L)+1. 

SAMP=SAMP+1. 

AV=AV-^FIN 

SD=SD+FIN*FIN 

IF ( TIME . LT. TMAX* .99999 )RETURN 
SAMP=0. 

DO 350 1=1,16 
350 SAMP=SAMP+F1(1) 

ISAMP=SAMP 
ISAMP=MAX0( 1, I SAMP ) 
AV=AV/ISAMP 

SD=SORT ( SD/ISAMP-AV*AV) 
XMAX=F1(1) 

DO 360 1=1,16 

360 IF(FKI) .GE.XMAX) XMAX=FI(I) 
IF(XMAX.EQ.O.) XMAX=10. 
HX=XMAX/44. 

DO 370 1=1,46 
GRAPH(1,I)=VERT 
370 GRAPH! 114,1 )=VERT 
DO 3B0 1=2,113 
GRAPH(I,1)=H0RIZ 
380 GRAPH(1,46)=H0RI2 
DO 400 1=5,103,14 


V 
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400 GRAPH! It46)=ViERr 
DO 450 I=3fl06,7 
450 GRAPHI It DIVERT 
DO 500 I=2r45 
Do 500 J=2fli3 
500 GRAPH(J,I)=BLAMK 
DO 600 lC=lfl6 
J=IFIX|45.5-F1(IC)/HX) 

DO 60G Jl=lt7 
J2= ( lC-1 ) *7+ Jl-#-! 

DO 600 J3=J,45 

600 GRAPH! J2fJ3) =P01^4T 
DO 700 1=^1, 16 

700 AXK I)=FI!I)/1SAMP 
DO 800 1=1,8 


800 


TD14 I)=FL0+!I-U»2.*FA-FA/2. 


WRITE!6,900HGRAPH!I,1),I=i,U4) 
F0RMATUHl,9X,114Ai/) 

WR1TE!6,1000J ! AX1!I), I =1,16) 

FORMAT! 1H+,9X,1HI,16F7. 5, IHI/) 

WRITE!6,1100) 

FORM AT ! 1 H* , 9X , IH I , U 2X , IHI / ) 

WRITE!6,1200S! !GRAPHII,J),I,^I,114), 1=2.461 

FORMAT I lH+,9Xtll4Al/45ll0X, 114A1/) ) 
WRITt!6,1300)!T01!l),l=:l,a) 

1300 FORMAT ( 1H+,9X,8!F13.5,1X)//) 

WRIT£!6,I400) ISAMP,AV,S0 

fFli.5,18H STANDARD OEV.s .F13.5/) 

END 


900 


1000 

1100 

1200 


1400 
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7.17 HYDRO STORAGE VESSEL 


RESERVOIR MASS MA 


INPUT FLOWRATE (Ml) 
MAX. INPUT POWER (MPl 
POWER REQUEST (REl) 
INPUT EFFICIENCY (EFl) 



lUTPUT FLOW RATE (M2) 
lATER HEIGHT (H2) 

OWER REQUEST (RE2) 
■INTERRUPT FLAG (I NT) 
MAX. OUTPUT POWER (MP2) 


The hydro storage vessel is modeled as an above ground reservoir with a large 
and constant surface area. The change in reservoir height between maximum 
and minimum levels is assumed small in comparison to the height of the water 
above the turbine. Hence, reservoir height Is assumed constant. The reser- 
voir has specified evaporation and leakage rates. Average input flow gained 
by rainfall is also specified. Energy storage is calculated based on the 

potential energy of the water In the reservoir relative to the turbine in-^ 
let. 


Basic Equation 

/WA = Ml - M2 - NE-5fAS - NL + MDR'MAS/14052 
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I nputs 


Parameter/Port 

Descriotlon 

Units 


1 

Input water mass flow rate 

gal/h 

NE 


Evaporation coefficient ID = 0 . 03 ) 

gal/ft^-h 

AS 


Reservoir surface area 


nL 


Leakage coefficient ID = 8.0) 

gal/h 

IfDR 


Ra i nf a II rate 

i nches/year 

A/\pM 


Maximum al lowable mass flow rate ID = 4X10^) 

gal/h 

m 


Maximum allowable reservoir capacity ID=5X10^) 

gal 

m 


Minimum allowable reservoir capacity 

gal 

H 

1 

Reservoir height above turbine 

ft 

NDE 


Reservoir deadband for priority resequence 

gal 

RE 

1 

Power request Idischarge) 

kw 

CR 


Reservoir cost coefficient ID = 0.025) 

$/ga 1 

EF 

1 

Input product efficiency 


MP 

1 

Maximum input charging rate 

kw 

LE 


Reservoir life expectancy 

years 

CW 


Maintenance cost/year 

$ 

Cutouts 
Var iable/Port 


M 

2 

Outlet water mass flow rate 

gal /hr 

E 


Energy stored 

kwh 

H 

2 

Reservoir height above turbine l=Hi) 

ft 

MA 


Reservoir mass Istate) 

gal 

CC0 


Reservoir cost/year 

$ 

MP 

2 

Maximum discharge rate al lowable 

kw 

INT 


Priority interrupt flag 


RE 

2 

Maximum charging rate request 

kw 


D - Default values supplied 
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Statistics 



iotion 

Units 

MDU 

/Maximum 

mass flow 

rate 

gal /hr 

MU 

/Maximum 

reservoir 

mass 

gal 

ML 

Minimum 

reservoir 

mass 

gal 


The calculation sequence and default values assume a pond sized for 120kw 
storage for 24 hours (5x10 gallons of water 200 ft. above turbine inlet). 

The evaporation coefficient NE assures the pond drops in height per 10 
hours. To obtain a more accurate value for this parameter requires knowledge 
of local conditions. The leakage coefficient NL is based on the assumption 
of a loss of 0.1% of the maximum reservoir capacity in the rated storage time 
of 24 hours. The reservoir cost estimates are based on the compensation res- 
ervoir given in Reference 1. 


1. "Preliminary Feasibility Evaluation of Compressed Air Storage Power Sys- 
tems," United Technologies AER 74-00242, December 1976. 

■«r.V 

.■I 
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Calculation Senuenre 



Cl = conversion constant = 0.377 x 

ft-lb 

C2 = conversion constant = 8.3398 Ib/gal 
A = 

1) Reservoir cost 

CC = CR-^MM/LE 

2) Volume of water discharged 

M2 = REl/A 

3) Reservoir water volume 

m 

MA = A/ll - M2 - NE*AS-NL +(AIIDR*AS/14052. ) 

4) Energy stored 

E = A-WM 

5) Checks 

m. > AADAA or M2 > AADM 0 DIAGNOSTIC 
M >A/IM, Q D I AGNOST I C 

fA<m O DIAGNOSTIC 

6) Priority interrupt 

If M^AAO, INT = 1 

|f M>M04MDE and INT=1, INT = 0 

If N^m, INT = -1 

If M<A/IA/UD/VIE and INT = -1, INT = 0 
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HS 

Calculation Sequence Cont . 

7) Maximum charging rate request 

AADl = MIN l/yOM,(MM-M»/TlNC) 

RE2 = MIN (MPl,,MDl-?fA)/EFl 

Maximum discharge rate 

MP2 = A MIN (MDM,(M-M0}/TlNC) 

where TINC = integration step size in hrs 

8) Compute Statistics and Costs 
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<J a o u o o o u o u a o u o o o o o u u u o o u u o u u u <j u u u ^ o o o 


CHS 


SUBR0UT1M£ HS(M ,0M,IM,M2tEfH2fCCfMP2,INTtRfc2»M0U,MUtHLfMl,Nt 
1 tAStNLtNUR.NOM»NM»NOtHltMDE«REl»CRtEFltMPlyL£yCN) 

PURPOSE PERFORMANCE OF A LARGE RESERVOIR AS AN ENERGY STORAGE 

DEVICE. 

METHOD ENERGY IN STORAGE IS CALCULATED FROM THE POTENTIAL 
BETWEEN THE RESERVOIR AND THE TURBINE INLET. 

WRITTEN BY F. 0 . MAHONY VERSION ly MARCH 30 1977 


C 

C 


CALL SEQUENCE 
OUTPUTS 

M “ RESERVOIR MASS (STATE VARIABLE), GAL 
DM - RESERVOIR MASS FLOWRATE, GAL/HR 
IM - SIATUS INDICATOR 

M2 - OUTLET WATER MASS FLOW RATE, GAL/HR 
e - ENERGY STORED, KWH 

H2 - RESERVOIR HEIGHT ABOVE TURBINE (=HI), FT 
CC - RESERVOIR COST/YEAR, $ 

MP2 - MAXIMUM DISCHARGE RATE ALLOWABLE, KW 

INT - PRIORITY INTERUPT FLAG 

RE2 -- MAXIMUM CHARGING RATE REQUEST, KW 

MDU - MAXIMUM MASS FLOW RATE, GAL/HR 

MU - MAXIMUM RESERVOIR MASS, GAL 

ML - MINIMUM RESERVOIR MASS, GAL 

INPUTS 

Ml - INPUT WATER MASS FLOW RATE, GAL/HR 
N£ ~ EVAPORATION COEFFICIENT, GAL/FT**2-HR 
I AS - RESERVOIR SURFACE AREA, FT^^a 

1 NL - LEAKAGE COEFFICIENT 

MOR - RAINFALL RATE, INCHES/YEAR 

MOM - MAXIMUM ALLOWABLE MASS FLOW RATE, GAL/HR 

MM - MAXIMUM ALLOWABLE RESERVOIR CAPACITY, GAL 

MO - MINIMUM ALLOWABLE RESERVOIR CAPACITY, GAL 

HI - RESERVOIR HEIGHT ABOVE TURBINE, FT 

HOE - RESERVOIR DEADBAND FOR PRIORITY RESEGUENCE, GAL 

REl ~ POWER REQUEST (DISCHARGE), KW 

CR - RESERVOIR COST COEFFICIENT 

EFl - INPUT PRODUCT EFFICIENCY 

MPl - MAXIMUM INPUT CHARGING RATE, KW 

LE - RESERVOIR LIFE EXPECTANCY, YEARS 

CM - MAINTENANCE COST /YEAR, S 

C0MM0N/CIMPL/IMPL,ICNT/CTIME/TIM£/CSIMUL/DUM(7),TNAX 
C0NN(DN/C0ST/CCI yCMI 

REAL M2,MP2,NOU,MU,ML,Ml,NE,NL,MDR,NOM,NM,MO,MDEyMPl,LE,lNT,M 

REAL MDIyMOMl 

IF(IMPL.GT.O)GO TO 100 

RE1=0.0 

H2=Hl 

TH AX I~TMAX*0. 99999 
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TINC =0UM(7) 

LI = 3.1441E-6 
C 

I.MT=0.0 
MDU=0.0 
MU =^0.0 
ML rl.OElii 

IFUlfc .£Q. ,999^91 ME -0.03 
IF(flL .bC(. .99999)NL =8.0 
IF4MOM.EO. .99999}M0M=4.0£5 
IF(HM .£Q. .99999)HM =5.0E6 
IFCCR .EQ. .999991LR =0.025 
C ■ - 

c ■ ' 

c RESERVOIR COST 

C ' : ■ 

CL =CR4MM/LE 
C 

c VOLUME OF ^ATER DISCHARGED 

C 

100 A=Cl*Hl 
M2 =RE1/A 
C 

C RESERVOIR MASS FLOW RATE 

C 

IFUN.ME.O} OM=MI~M2-NE«AS-NL-^MOR4AS/ 14052.0 
C 

c ENERGY STORED 

C 

E =A*M 
C 

MOM 1=M DM/. 9999 
IFCMi.LT.MDMl.AND. 

1 MZ.LT.MDMDGD TO 20o 
C 

IF( IMPL.E0.2)WRITE(6, 1010)MltM2*M0M 
IFUMPL.EQ.2) ICNT=ICNT-H 
C 

200 IFCM .LT.MM+MOEIGO TO 300 
C 

1F(IMPL.EQ.2)WR1TE(6,1020)M»MM 
IF(IMPL.EQ.2|ICNT=ICNT*1 
C 

300 IFCM .GT.MO)GO TO AOO 

C . , I 

IFIIMPL.EQ.2>WRITEC6,1030)M,MO 
1FCIMPL.EQ.2) 1CNT=ICNT+1 
C 

C PRIORITY INTERRUPT 

C 

400 IFCM .LE.M0)INT=1.0 

IFCM .GT.CMD+MOEJ.ANO. 

I INT.EQ.I.O)1NT=0.0 
IFCM .GT.MM)1NT=-1.0 
IFCM .LT.CMM-MDD.AND. 

1 1NT.EQ.~1.0MNT=0.0 

C 

C MAXIMUM CHARGE RATE REQUEST AND DISCHARGE RATE 
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n o o 


MDU AMIM 1 ( MOfI , AM AX 1 ( 0 . , ( MM-M I /TINC I ) 

RE2=AMIN1 liMPLtM914cA)/EFl 

MP2=A4caMIN 1 ( MDM vANAXK 0. t ( M-MOI/TINC ) ) 

IFlIMPL.Lfc.DRETURM 



STATISTICS 



MOU^ANAXKOMyNOU) 

MU =AMAX1(M ,MU ) 

I ml =AMIM1(M ,ML ) 

IF ( TIME. LT.TMAXl) RETURN 

CCI=CCI+CC 

CMI=CMI+CM 

RETURN 


1010 F0RMAT(iH0,23HHS INLET MASS FLOW RATE.FI2.3, 5H OR 
1 2IH0ULET MASS FLOW RATE,F12.3, 

GREATER THAN MAXIMUM, F12. 31 
1020 FORMAK 1H0,19HHS RESERVOIR VOLUME, F12. 3, 

^ , 30H EXCEEDED MAXIMUM ALLOWABLE .F12 31 

1030 FORMAT! IHO, I9HHS RESERVOIR VOLUME, F12.3, 

1 24H OROPEO below MINIMUM, FI2. 3) 


END 





BCS 40262-1 


HT 

7.18 HYDRAULIC TURBINE 


ROTOR SPEED (RS) 

MASS FLOW RATE (M) 
WATER HEIGHT (H) 

MAX. INPUT POWER (MPl 


The hydraulic turbine model Is based on a constant speed design and is typi- 
cal of a react ion/ Franc is type turbine. The turbine Is assumed to be designed 
to a specified operating point and output power. 

For off design performance the pump efficiency is assumed to be functionally 
related to the first power of the mass flow rate. The equations are assumed 
to be valid over a specified range of values for the turbine parameter. 



POWER (P2) 

MAX. OUTPUT POWER (MP2) 
OUTPUT EFFICIENCY (EF2) 


Basic Equations 

P = eff-«m^k:i- 5(C2^«- H 
EFF = 1-(1-EFD)-MM)/M 
where Cl, C2 are conversion constants. 


, 0 ^ V- 
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Inputs 


Parameter/Port 

Descrlotinn 

■Units 

M 

Inlet mass flow rate 

gal /h 

H 

Height of reservoir above turbine Inlet 

ft 

EFD 

Design pt . turbine efficiency (D = 0.90) 


MD 

Design pt. mass flow rate (D = 2X10^) 

gal /h 

m 

Maximum mass flow rate (D = 3X10^) 

gal /h 

EF 1 

Input product efficiency 


MP 1 

Input maximum discharge rate 

kw 

CK 

Turbino capacity cost coeff Icient^CD = 0.011) 


FO 

Turbine exponent for cost calculations (D = o. 

5) - 

RS 

Angular velocity 

rpm 

X 

Outputs 

Variable/Port 

Turbine head exponent for cost calculations 

(D = 0.25) 


CC0 

Turbine cost/year 

$ 

EFF 

Turbine efficiency 


P 2 

Output power 

kw 

EF 2 

Output product efficiency 


AAP 2 

Output maximum discharge rate 

kw 

CP 

Turbine characteristic parameter 

- 

Statistics 

CPU . 

Maximum CP 


CPL 

Minimum CP 


PU 

Maximum output power 

kw 


D - Default values 

^CK = Capital cost (known uni t )/ ( (A®*481.2)->H«F0’'^W«fX*l i fe expectancy) 
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HT 


The calculation sequence and default values assume a constant speed reac- 
tion type hydraulic turbine nominally rated for 120kw and located 200 ft 
belo» the reservoir. The equations relating the various physical parameters 
are assumed to be valid for the Indicated range of the characteristic tur- 
bine parameter, CP. The equations and cost estimates are based on the data 
given in Reference 1 , and the cost estimates on data from Reference 2. 


Calculation Sequence 


Cl = 0.377x10“^ — 

ft-lb 


C2 = 8.3398 lb /gal 
A = Clt«C2^H 


1 ) Costs 


CC0 = CK* (MD*481.2)*»F0*hHH«-X 


2) Efficiency , 

If M S 0 set EFF = 1 and go to 3) 
EFF = l-(l-EFD)-??/\HD/M 
EFF = AUAXIEFF, 0.6) 


1. L. Marks and T. Baumeister, "Mechanical Engineers Handbook", McOraw Hitt 
N.Y., 1958, Section 9, p. 207. * 


2. Carson and Fogleman, "Comparison of Methods tor Converting Existing Power 

Plants to Pumped Storage Facilities", International Engineering Company, 
Inc., 1974. ^ V It 
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3) Output Power 

P2 = EFF*A^«M 

4) Product Efficiency 

EF2 = EFl-3fEFF 
EFM = m -d-EFD)^ 

5) Maximum Discharge Rate 

MP2 = Min { AAPl-JfEFD, EFM*A> 

6) Turbine Characteristic Parameter 
(If P2 < 0 go to 7) 

CP = RS^QRT (P2^.746)/H^i.25 

If CP>100 write DIAGNOSTIC 
If M> AMA write DIAGNOSTIC 

7) Compute Statistics and Costs 
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CHT 

iUBROUTIME HTICC,fcFF,P,EF2tMP2,CP,CPUfCPLfPUtM,HtEFDfMDfMM 
1 fEFl,MPl,CK,FO*RS,X> 

PURPOSE PERFORMANCE OF A HYDRAULIC TURBINE 

NEIHOO OFF DESIGN PERFORMANCE IS ASSUMED PROPORTIONAL TO 

MASS FLOW RATE 

WRITTEN BY F. 0. MAHON Y VERSION It MARCH 30 1977 

CALL SEQUENCE 
OUTPUTS 

I CC - TURBINE COST/YEAR, S 

I EFF - TURBINE EFFICIENCY 

P - OUTPUT POWER, KW 
EF2 - OUTPUT PRODUCT EFFICIENCY 
MP2 - OUTPUT MAXIMUM DISCHARGE RATE, KW 
I CP - TURBINE CHARACTERISTIC PARAMETER 

I CPU - MAXIMUM CP 

I CPL - MIN IMUM CP 

i PU - MAXIMUM OUTPUT POWER, KW 



C 

C 

C 

C 

C 


INPUTS 

H - INLET MASS FLOW RATE, GAL/HR 
H - HEIGHT OF RESERVOIR ABOVE TURBINE INLETt FT 
EFD - DESIGN POINT TURBINE EFFICIENCY 
I MD - DESIGN POINT MASS FLOW RATE, GAL/HR 

' MM - MAXIMUM MASS FLOW RATE, GAL/HR 

EFI - INPUT PRODUCT EFFICIENCY 
MPl - INPUT MAXIMUM DISCHARGE RATE 
GK - TURBINE CAPACITY COST COEFFICIENT 
FO - TURBINE EXPONENT FOR COST CALCULATIONS 
RS - ANGULAR VELOCITY, RPM 

X - TURBINE HEAD EXPONENT FOR COST CALCULATIONS 

COMMON/CIMPL/IMPL,ICNT/CTIME/TIM£ /CSIMUL/0UM(7 ) ,TMAX /COST/ CCI 
REAL MP2,M,MD,MM,MP1 

IFdMPL.GT.OIGO TO 100 

TMAX I=TMAX*0 .99999 
RS =3600.0 


IF(EFD.EQ. .99999)EFD=0.9 
IF(MO .EQ. .99999 }MD =2.0E5 
IF(MM .EQ. .99999IMM =3.0E5 
IF(CK .EQ. .99999TCK =0.011 
IF(FO .EQ. .99999JF0 =0.5 
1F(X .EQ. «99999)X -0.25 


CPL=1.0E10 
CPU=0.0 
PU =0.0 

Cl = 3.1441E-6 
CC =CK«CNO*48I.2)*4^FO«H**X 
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c 

c 


EFFICIENCY 


HT 


C 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


100 EPF =1*0 

1F;(M.LE.O.O)GO TG 400 

EFF=i.0-( 1*0-EF0»»M0/M 
IF(EFF.LT.0.6| EFF=0.6 

OUTPUT POWca 


C 

C 

c 


c 

c 


^00 P =EFF*H#H»C1 

PRODUCT EFFICIENCY 

EF2=£Fi*£FF 

MAXINUN DISCHARGE RATE 
EFM =MM^.9999-( 1.0-EFD)*M0 
MP 2= ANlNl (MP l^EFD.EFM^H^Cl ) 

TURBINE CHARACTERISTIC PARAMETER 

IF(P .L£. 0*0) GO TO 300 
CP =RS*SQRTCP*0.746)/H^*1.25 


c 

c 

c 


c 

c 

C: 

C' 

i 

c 

c 


IF(CP.LT«100.0)&C TO 200 

IF( IMPL.EQ«2)WRlTEC6f 1010)CP 
IFCIMPL.EQ.2) ICNT=1CN1+1 

200 IF(N.LT.MM>GO TO 300 

1F(INPL.£Q.2)WRITE(6,1020)M,MM 
IF(INPL.E0.2> ICNT=ICNT+l 

300 IFdMPL.LE.DRETURN 

STATISTICS 

CPU=AMAXUCPU»CP J 
CPL=AMlNUCPLtCP) 

PU =AMAXltPU ,P ) 

1 F I T IM E . LT. TMAX 1 ) RE TURN 

■ COST . ■ 

CCI=CCI+CC 
RETURN 

CHARACTERISTIC PARAMETER OUT OF RANGE. 

1020 FORMATUHO.pHHT INLET MASS FLOW RATE,F12.3 

^END GREATER THAN MAXIMUM DESIGN VALUE.F12.3) 
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7.19 ADIABATIC HEAT EXCHANGER 




STORED ENERGY (EC1,EC2) 

DISCHARGE MASS FLOW (M3] 

DISCHARGE INLET TEMP (T3 
AIR MASS FLOW (Ml) 

INLET TEMP (Tl) 

AMBIENT TEMP (TA) 

MAX. INPUT POWER (MP1) - 
INPUT EFFICIENCY (EFl) . 


The purpose of the adiabatic heat exchanger is to recover a portion of the 
heat of compression from the high pressure, high temperature air exiting from 
the compressor. Figure 7.19-1 shows an adiabatic heat exchanger used in an 
underground, constant pressure compressed air energy storage system. The adia- 
batic heat exchanger operates in a manner similar to the high temperature 
thermal energy storage systems currently conceived for solar thermal power 
plants .In the storage charging mode, high pressure, high temperature air 
enters the top of the heat exchanger and deposits a portion of its thermal 
energy in the storage media as either sensible heat or latent heat of fusion. 

The exiting high pressure air is stored in an appropriate vessel, e.g., under- 
ground cavern. In the discharge cycle (HY), high pressure, low temperature 
air enters the bottom of the heat exchanger, recovers thermal energy from 
the storage media and exits to the turbine. 

The adiabatic heat exchanger model is based on a two cell storage model. Given 
the stored energy in both cells, a I inear temperature profile is computed 

^ "Advanced Thermal Energy Storage Systems," November 

19/0 • ^ > 

. i 

r 
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FIGURE 7,19.1 fOUJ^-GLENDENNm COMPRESSED AIR STORAGE 

SCHEME (SINGLE-STAGE HEAT-OF-COMPRESSION STORAGE) 
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for the media mass. Based on a 
film coefficient, unit thermal 
ture are calculated. 


gJven Inlet mass flow rate, the convective 
conductance, and heat exchanger exit tempera- 


The rate o, energy deposited tor wlthdra»nl is calculated and Integrated 
o ycM the stored energy state. For a phase change media, the temperature 
protlle IS approximated in the fol lowing way: Averaoe cell t 

m ... ™ 

r.",”;:.:"'"' ~ 

ture profile is constructed as shown In Figure 7.19-3. 


Basic Equation.*; 


ECl - PX - py - Nu * ECl - BE tf lECl - EC 2 ) 

EC2 = IP 2 - PXI - (P 0 . py, _ nu*ec 2 + BE * lECl - EC2I 

where 

ECl, EC2 = storage power in cells 1 and 2, respectively 

PX = charging power In cell i 

PY = discharging power In cell 1 

P2 - PX = charging power In cell 2 

P0 - PY = discharging power In cell 2 

NU = storage media leakage constant 

BE = storage media mixing constant 
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MEDIA 

TEMPERATURE 




FIGURE 7.19-2: ENTHALPY-TEMPERATURE DIAGRAM FOR HX 


MEDIA 

TEMPERATURE 



FIGURE 7.19-3: STORAGE TEMPERATURE VERSUS TUBE LENGTH 
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ho 


-(.nDuts 

Parameter/Pnrt 



NU 

ST 

BE 

TOl 

DTD 

PD 

TEM 

XD 

EF 1 

MP 1 

CPI 
H 

TMT 

CPF 

KF 

MU 

NT 

D 

L 

DEL 

K 

T 1 

M 1 

CM 

CSA 

CSB 

LE 


Descr ioHnn 

Storage energy loss coefficient JD = 0.002) 
Rated storage time^ 

Storage energy mixing coefficient (o = o.O) 
Minimum allowable storage temperature {d = 60 ) 
Acedia temperature swing^ (D = 400) 

Rated storage thermal power 
Maximum allowable exit temperature (D = 240) 
Design point fraction of molten media mass 
Input product efficiency ^ 

Maximum Input charging rate 


Units 

(h)”l 

h 

h“^ 

% 

kw 


kw 


Storage media heat capacity ID = 2. 93 x 10 “'^) 
Storage media heat of fusion^ ID 0,0219) 
Storage media melt temperature^ ID = 147 ) 

Air heat capacity ID = 7.6X10~^) 

Air thermal conductivity ID = I.OSXIO”"^) 

Air viscosity ID = 0.055) 

Number of tubes ID = 200) 

Tube diameter ID = 0.03) 

Tube length ID = 4 ) 

Tube half spacing Id = 0.085) 

Storage media thermal conductivity ID = 0.0078) 
Inlet air temperature 
Inlet mass flow rate 

Storage device yearly maintenance cost |d = 0 . 6 ) 
Storage device capacity cost ID = 50) 

Storage device energy cost |D - 15,6) 

Unit life expectancy 


kwh/ I b 
kwh/ lb 

kwh/ lb°F 

kw/ft°F 

Ib/ft-h 

ft 

ft 

ft 

kw/f t-°F 

% 

Ib/h 

$/kw 

$/kw 

$/kwh 

years 


D - Defau I t va I ues specified 

- Design point conditions 

- Used for phase change media, H = 0 for sensible heat 
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HX 

Inputs 


Parameter/ Port 

Description 

miLLs 

AA 

3 

Discharge cycle mass flow rate from storage 

Ib/ihr 

i 

T 

3 

Discharge cycle temperature from storage 

°F^ 

TA 


Ambient temperature 

°F 

TS0 


Storage vessel minimum temperature 

°F 

Outputs 




VarlabI e/Port 

Description 

Units 

ECl 


Stored energy (state) for cell 1 (hot side) 

kwh 

EC2 


Stored energy (state) for cell 2 (cold side) 

kwh 

AA 

2 

Outlet mass flow rate (=AAl) 

1 b/hr 

AAP 

2 

AAaximum discharge rate 

kw 

TS1,TS2 


Average temperatures for cells 1 and 2 

°F 

T 

2 

Air exit temperature 

°F 

AAA 


Required storage media mass 

lb 

CC0 


Storage device capital cost/year 

$ 

HF 


Convective heat transfer coefficient 

kwh/ f t 

U 


Unit thermal conductance 

kwh/ f t 

P 

2 

Charge rate into heat exchanger 

kw 

E1,E2 


Energy stored at start and end of melt 

kwh 

PAA 


AAaximum al lowable charge rate 

kw 

EF 

2 

Output product efficiency 

- 

RT 


Thermal resistance 

°F/kw 

P0 


Discharge power taken from heat exchanger 

kw 

T0 


Discharge cycle output temperature 

°F 

EF0 


Discharge cycle efficiency 

- 

Statistics 


. 


TSU 


AAaximum storage temperature 

°F 

T^L 


AAinimum storage temperature 

°F 

AAE 


AAaximum stored energy 

kwh 

AAT 


AAaximum exit temperature 

°F 
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The default values assume use of paraffin wax as the phase change storage 
medium. (In^reality, paraffin wax may not be applicable to temperatures as 
high as 600°F. The selection of a phase change medium involves careful con- 
sideration of a number of factors [see Reference l] ) . The heat exchanger 
geometric parameters, I.e., tube number, diameter, etc., and heat exchanger 
cost estimates are based on the baseline phase change storage device devel- 
oped in Reference 1, but scaled down to reflect expected mass flow rates 
and required media mass. Although these data were developed for a different 
application (50 AWe, 6 hour storage, average temperature = 786°C), they can 
be considered representative until detail design data is available. 


1. "Advanced Thermal Energy Storage,- BEC/EPR I RP 788-1, July 1976 . 


'‘4 V 
€ 
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Calculation Sequence 
1) Initial Calculations 

/VIA = 

XD^^H+CPIWTD 

CC0 = (CSA+CSB^'iSTi-wPD/LE 
EX = MA^fCPl-5«-(TMT-T01 ) 

E2 = MA-J(-[H+CPl*{TMT-T01)] 

T3 = TSd^TA 
A = (D-«0EL+DEUHt2)/5. 

RBd) = D/2, RB(l+l> = SQRT(RB( I )-5«t2+A) 1=1,5 

RN( I ) = SQRT( (RB( l+l)^<*2+RB( I )-?H(-2)/2) 



2) Storage Temperature (see Figure 7.19-2) 



r 

i 




T01 

AHA^Pl 

if 

% 

TS = , 

TMT 


if 

\ < E<E2 


T01 

Am ~ H/ 

CPl 

if 



where TS = TSl and E - ECl for storage cell 1 and similarly for cell 2. 

3) HX Exit Temperature Calculations 
. M2 = Ml , 

P2 = 0 
PX = 0 
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3) Cont. 

T2 = TS2 - (TSl-TS2)/2 
At = TS1-TS2 
If Ml = 0, GO TO 7) 

4) Convective Heat Transfer Coefficient^ 

0.0215 -55- ^ ^ »t ( CPF^W \ 

\NT MU^fPI^ / \ KF / 

5) Thermal Conductance 

= f Iff 

UA = U^H^H50^H.-?fMT/(CPF^l-5f2) 

6) Exit Temperature and Charge Rate (See Equation A2. in HX Appendix) 

TX = T1 - At -( 1. - EXP(-UA) )*(T1 ~ TSl - AT/2 - AT/UA) 

T2 = TX - At - (l.-EXPC-UA) )^5^(TX - ITS1+TS2) /2-AT/UA ) 

P2 - M1-5«:PF-5HT1-T2) 

PX = Ml-;fCPF-5HTl-TX) 

7) HY Exit Temperature Calculations 

» 

T0 = TSl + AT/2 
P0 = 0. 

PY = 0. 

I f M3 = 0 GO TO 11 ) 

Kays, W. M., Convective Heat and Mass Transfer . McGraw Hill, N.Y.. 1966 

r» -t '7'Z ' ^ 
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8) Convective Heat Transfer Coefficient 

( .0215* ( 1 ^* ^ ) °'° * /" 2EE* ) °'®) 

ire D \ V NT A«U»PI«0 / \ KF / ' 

9 ) Thermal Conductance 

UA = U0*PHfD^L-»tJT/(CPF^3-?t2) 

10) Exit Temperature and Discharge Rate (See Equation A3, in HX Appendix) 

TY = T3 +.AT - (l.-EXP(-UA))^HT3 - TS2 + AT/2 + AT/UA) 

T0 = TY + At - (l.-EXP(-UA))*(TY - (TSl + TS2)/2 + AT/UA) 

P0 = AA3^PF-5HT0-T3) 

PY = M3-5K:PF^HT0-TY) 

11) Energy Deposited 

ECl = PX - NU ECl - PY - BE (ECl - EC2) 

EC2 - (P2-PX) - NU * EC2 ~ (P0 - PY) + BE* (ECl - EC2) 

If T2 > TEM, WRITE DIAGNOSTIC 

12) Maximum Allowable Mass Flow Rate 

A/IDM = PD/(CPF-5(DTD) 

13) AAaximum Al lowabi e Charge Rate 

PM = A/DM * CPF * (Tl-TA) 
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14) Charging and Discharging Effici 
EFF = 1 


ency 


f T2 > TS0 


EF0 = 1 


ppp _ ~ TS0 

T1 - TA 


If T5 > TS0 EF0 = ^ 

T3 - TS0 

MP2 = MIN (MPl, PM) -Jf- EFF 
EF2 = EF1-»EFF 


15) Compute Statistics and Cost Summat 


ion 
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HX 


Temperature Equations for a Media with Constant Gradient 


1) Constant Gradient Media Temperature: 


MEDIA 



TUBE LENGTH 


2) Working Fluid Differential Equation: 
^Tf UA 


Al. 


ax =r‘Ts-Tf) 


0 < X < L 


Main R^$ult , g : Exit temperature in the charging and discharging cycl 

given by 


es are 


A2. Tf(L) = Tf(0) + ATS - (1-exp (-UA) )-«-(Tf (O)-TS0 + Ats ) 

/ '''' \ 

A3. Tf (0) - Tf(L) - Ats - (l-exp(-UA))*(Tf(D-TSL - Ats ) 

' US ' 

where ATS = TSL - TS0. 


Pr^ai: Multiplying Al, by exp(UA-X/L) and recombining terms yields: 

a 

Tx (exp(UA*X/L)*Tf ) = ^ *exp(UA*X/L)^tTS(X) . 

Integrating A4. and subsituting TS(X) = TS0 + yields 
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A5. Tf(X) = 


exp(-UA^fX/L)*Tf(0) + ^ j exp(-i 


UA(x-y)/L)^fTS(y)dy 


= exp,-CA*X/L,Tf,0, . a-.xp,-UA«X/L,,*,TSO - 4TS/UA. 

+ ^ » y 


Rsccbining te™. ,n AS. x< y,e,p. A.. Equation A3 , 

from A2. by symmetry, i.e., substitute In A2! 


Tf(0) for Tf(L) 
Tf(L) for Tf(0) 
TSL for TS0 
TS0 for TSL. 


ows 


■ f- 

<» .»■ 
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SUBROUTINfc HX(£Cl,D£l,IEl,EC2,D£2,Ifc2,M2,MP2»TSltTS2tT2,MA, 
lCiLtHF,U,P,El,£2,PM,EF2,P0,T0,EF0tRtTSUfTSLfM£,MTfNUf5TfB£tT01,DTD 

2 »PD,T£M,XD,£Fl,MPl,CPl,H,TMT,CPF,KFfMU.NT,D*L,QEL,K,Tl 

3 fNltCMtCSAtCSB»LEtN3»T3»TA»TS0) 


i>URPOSE PERFORMAMCE OF ADIABATIC HEAT EXCHANGER DURING CHARGE 


METHOD 


CYCLE 

HEAT STORAGE MEDIA ASSUMED TO CONTAIN NO TEMPERATURE 
GRADIENTS. ENERGY DEPOSITED IS A FUNCTION OF TEMPERATURE 
AND THERMAL CONDUCTANCE 


WRITTEN BF F. C, 

CALL SEQUENCE 
OUTPUTS 

EC I - 

i DEI - 

lEl - 
EC2 - 
DE2 - 
IE2 - 
M2 - 
MP2 - 
TSl - 

i TS2 - 

T2 - 
MA - 
CC - 
HF - 
U - 
P - 
£1 - 
E2 - 
PM - 
EF2 - 
PO - 
TO - 
EFO - 
R 


STATISTICS 
TSU - 
TSL - 
ME - 
MT - 


MAHONY 


VERSION 2f JUNE lv77 


STORED ENERGY (STATE ) FOR STORAGE CELL 1, KWH 
ENERGY RATE FOR ECl, KW 
STATUS INDICATOR FOR ECl 

STORED ENERGY STATE FOR STORAGE CELL 2, KWH 

ENERGY RATE FOR EC2, KW 

STATUS INDICATOR FOR EC2 

OUTLET MASS FLOW RATE. LB/HR 

MAXIMUM DISCHARGE RATE ALLOWABLE, KW 

STORAGE TEMPERATURE IN CELL I, DEG F 

STORAGE TEMPERATURE IN CELL 2, DEG F 

AIR EXIT TEMPERATURE, DEG F 

REQUIRED STORAGE MEDIA MASS LB 

STORAGE DEVICE CAPITAL COST/YEAR, $ 

CONVECTIVE HEAT TRANSFER COEFFICIENT, KWH/FT2-F 

UNIT THERMAL CONDUCTANCE, KWH/FT2-F 

CHARGE RATE OF HEAT EXCHANGER 

ENERGY STORED AT START OF MELT PHASE, KWH 

ENERGY STORED AT END OF MELT PHASE, KWH 

MAXIMUM ALLOWABLE CHARGE RATE. KW 

OUTPUT PRODUCT EFFICIENCY 

DISCHARGE POWER TAKEN FROM HEAT EXCHANGER, KW 
DISCHARGE uYCLE OUTPUT TEMPERATURE, DEG F 
DISCHARGE CYCLE EFFICIENCY 
THERMAL RESISTANCE. DEG F/KW 


MAXIMUM STORAGE TEMPERATURE, DEG 
MINIMUM STORAGE TEMPERATURE, DEG W . 

MAXIMUM STORED iB^ERGY, KWH QUaiJ.^ 

MAXIMUM EXIT TEMPERATURE, DEG F 


INPUTS 

NU ~ STORAGE ENERGY LOSS COEFFICIENT 
ST - RATED STORAGE TIME, HR 

BE - STORAGE ENERGY MIXING COEFFICIENT, 1/HR 
TOl - MINIMUM ALLOWABLE STORAGE TEMPERATURE, DEG F 
DTD -> MEDIA TEMPERATURE SWING, DEG F 
PD - RATED THERMAL STORAGE POWER, KW 
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TEM ~ MAXIMUM ALLOWABLE EXIT TEMPERATURE, DEG F 
XD - OESIGM POINT FRACTION OF MOLTEN MEDIA MA&S 
EFl - input PRODUCT EFFICIENCY 
MPi - MAXIMUM INPUT CHARGING RATE 
CPI - STORAGE MEDIA HEAT CAPACITY, KWH/LB-F 
H - STORAGE MEDIA HEAT OF FUSION, KMH/LB 
TMT - STORAGE MEDIA MELT TEMPERATURE, DEG F 
CPF - AIR HEAT CAPACITY, iXWH/LB-F 
KF - AIR THERMAL CONDUCTIVITY, KWH/FT-F 
MU - AIR VISCOSITY, LB/FT-HR 
NT - NUMBER OF H/X TUBES 
P - TUBE DIAMETER, FT 
L - TUBE LENGTH* FT 
PEL - TUBE HALF SPACING, FT 
R - STORAGE MEDIA THERMAL CONDUCTIVITY 
T1 - INLET AIR TEMPERATURE, DEG F 
Ml - INLET MASS FLOW RATE, LB/HR 
CM - STORAGE DEVICE YEARLY MAINTENANCE COST $/KW 
CSA - STORAGE DEVICE CAPACITY COST, S/KW 
CS3 - STORAGE DEVICE ENERGY COST, $/RWH 
LE - UNIT LIFE EXPECTANCY, YEARS 

M3 - DISCHARGE CYCLE MASS FLOW RATE FROM CS, LB/HR 
T3 - DISCHARGE CYCLE TEMPERATURE FROM CS, DEG F 
TA - AMBIENT TEMPERATURE, DEG F 

ISO - STORAGE VESSEL MINIMUM TEMPERATURE FROM CS, DEG F 

COMMON /CIMPL/IMPL,ICnT/CTIME/TIME /CSIMUL/DUM(7),TMAX 
COMMON /COST/ CCI,CMI 

REAL M3,NU,ML,MP2,MA,ME,MT,MP1,MU,NT,M1,LE,KF.K,L.MDM 
dimension RB(6),RNfS) 

DATA P1/3.1AIS9/ 

IFIIMPL.GT.O)GO TO 100 
C 

IF{NU .EQ. .99999 >NU =0.002 
IF(8E .£G. .99999JBE 0.0 

IF(T01.E0. -99999 )T01=60.0 
IF(DTO«EG. .99999)010=400.0 
IFHEM.EO. .99999) TEM=240.0 
1F(CP1.EQ. -99999) CPl=2.93E-4 
IF(H -EG- .99999)H =2.1ft8E-2 

IF(XD .EQ. .99999)XD =0.6 
lF(TMf-EQ. .99999) THT=147.0 
IF(CPF.£G. .99999)CPF=7.6c“5 
IFiKF -EQ. .99999)KF =1.03E-4 
IFTMU -EC. .99999) MU =0.055 
IFCNT .EG. .99999) NT =200.0 
IF(D .EG. .99999)0 =3.0E-2 

1F(L .£Q. -99999) L =4-0 
IF (DEL. EG. . 99999 )DEL=8.5E-2 
IF(K .EG. .99999 )K =7.6E-3 
IF(CM .EG. -99999)CM =0.6 
IFICSA.EG. .99999 )CSA=50.0 
IF(CSB.EG. .99999)CSB=I5.6 

TSL=1.0E8 
P0=0.0 
PM= 0.0 
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TSU-O.O 

ME =0.0 

MT=0.0 

M3=0.0 

T3=TA 

TSO=TA 

MA =PD*0.5*ST/(XD»H+CP1*DTD) 

CC = ICSA+CSB*ST)*PD/LE 
CM= CM*PO 

El =MA*CP1»CTMT-1GU 
E2 =HA»(H+CPl*(TMT-TOl)> 

TMAX 1=TMAX*0 .99999 
A =(D*0EL+DEL**2)/5.0 

CCMPUTE THERMAL RESISTANCE OF MEDIA 



RB(1 1=0/2. 0 


00 20 I=1«S 

RB ( I +1 ) =SQRT ( aa I I ) **2+A ) 

20 RN(1 »=SQRTI(Rbll-H)**2+RaCU**2)/2.0» 


R=0.0 

00 30 1=1,4 

30 R=R4-AL0G(RN(l4^1)/RN{ II ) 
R=R*D/2.0/K 


STORAGE TEMPERATURES 


100 TSl=TMT 

IFCECl.LT.El) TS1= T01+ EC1/IMA*CP1) 
IF(EC1.GT.E2) TS1= T01+ lECl/MA - HI/CPl 
TS2=TMT 

IF(Ei.2.LT.El)TS2= T01+ EC2/CMA*CP1) 
IFIEC2.GT.E2) TS2= T01+ 1EC2/MA - HI/CPl 


DELT= TSl - TS2 
TSH= TS1+ .5»0ELT 
TSC= TS2 - .S*0£LT 

T2= TSC 
M2=M1 
P =0 .0 
PX=0.0 
U=l.O/R 

IF(M1.LE..00IIG0 TO 200 

CONVECTIVE HEAT TRANSFER COEFFICIENT 
HF =KF/0*(0.0215*(Ml/NT#4.0/MU/PI/DI**0.84(CPF*MU/KF|4*0.6l 
UNIT THERMAL CONDUCTANCE 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


U = l.O/U.o/HF+R) 

UA= U»PI^D*L*iiT/eMl*CPF»2.i 
TEMP- OELT/UA 
UA- 1. - EXP(-UA) 

Exn TEMPERATURE 

TX= 11 - DELI - UA*(T1-TSH-TEMP) 

OELl — UA^( TX~( TS1+TS2 )*»5—TEMP I 

CHARGE RATE 

P =M1*CPF»ITW2) 

PX = MI*CPF*(T1~TX> 


HX 


HY EXIT TEMPERATURE CALCULATIONS 


C 

r 


C 

c 

C 


C 

c 

c 


200 TO = TSH 
PO =0,0 
PY=0.0 

IF(M3.£Q .O.OJGO TO 300 

CONVECTIVE HEAT TRANSFER COEFFICIENT 

HFO =KF/0.(0.0215*(M3/NT*4.0/MU/PI/D)„o.8»<CPF.MU/KF,«o.6. 

UNIT THERMAL CONDUCTANCE 

UO=l ,0/( l.O/HFO+R) 

UA= U0*PI*0*L*NT/(M3*CPF*2.) 

T£MP= DELT/UA 
UA= EXP(~UA) - 1. 


EXIT TEMPERATURE AND DISCHARGE RATE 


C 

c 

c 

C 


c 

c 


c 

c 

c 


c 

c 


TY= T3+ DELT+ UA*t T3-TSC+TEMP ) 

T0= DELT ♦ UA^ C TY-( TS1+TS2 )*.5+TEMP 1 
PO =M3*CPF*(T0-T3) itnP# 

PY= M3*CPF»(T0-TY| 

ENERGY DEPOSITED 

300 IFCIEl.NE.O) DEl= PX- PY -NU*EC1 -BE» « EC1-EC2) 

IFUe^.mt.O) Dc2= P-PX - (PO-PY) -MU»EC2 +Be^(ECl-£C2» 

IF CT2.LT.TEM) GO TO 500 

IF(INPL.£Q.2)WRITE(6,1010)T2,TEM 

IF(IMPL.EQ.2)ICNT=ICNT*1 

MAXIMUM ALLOMAELE CHARGE AMD FLOM RATES 
500 MDM= P0/(CPF*0T0) 

PM =M0M*CPF*(T1-TA| 

CHARGING AND DISCHARGING EFFICIENCY 

244 

BCS 40262-1 


o o o o 


C 


HX 

fcfF=l.O 
C 

IF ( T 2. St .ISO ) t.FF= ( T2-TSO )/ ( Tl-TA I 
C 

fcFO =1.0 
C 

IF(T3.GT.TSO)eFG=ITO-lA)/n3-TSO> 

c 

MP2 = AMlNHMPi.PM)*eFF 
C 

tF2=£Fl*EFF 


STATISTICS 

IRUMPL.LE.URETURN 
C 

TSJ =AMAXl(TSj,TSi ) 

TSL =AMIN1(TSL,TS2) 

ME = AMAXKME, tCl+EC2) 

MT =AMAX1(MT ,T2I 
C 

IFTTIME.LT.TNAXDREIURN 

C 

CCil =CCI+CC 
CMI=CM1+CM 
CM- CM/PD 
C 

RETURN 

C 

1010 FORMAT! IHOfEOHHX EXIT TEMPERATURE »F12.3 

1 GREA1ER THAN MAXIMUM ALLOWABLE »FI2.3) 

C 

END 
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7 . 20 ADIABATIC HEAT EXCHANGER - D I SCHARG I NG CYCLE 




►MASS FLOW RATE (M2) 
EXIT TEMPERATURE (T) 

DISCHARGE POWER (P) 

MAX. OUTPUT POWER (MP2) 

OUTPUT EFFICIENCY. (EF2) 


HY Is the discharge cycle complement to HX. All the calculations to obtain 
the exit temperature and heat exchange power deposited or withdrawn are done 
in HX. The results are then passed to HY for summary. 


MASS FLOW RATE (Ml) 

HX EXIT TEMP. (T0) 

HX EFFICIENCY (LF0) 
MAX. INPUT POWER (MPl 
INPUT POWER (PI) 



4f. 
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Inputs 


Parameter/Por t 
M 1 

TO 

P; 1 

I 

EFO 

MP 1 



Var lab I e/Port 


M 2 

T 

P 2 

MP 2 

EF 2 


Descriotinn 

Air mass flow rate from storage 
Exit temperature from HX 
Discharge power from storage 
Discharge cycle efficiency from HX 
Aliaximum power from storage 

Exit air mass flow rate 
Exit temperature (=t 0J 
Discharge power 
Maximum discharge power 
Output product efficiency 


■Statistics 

T"*- Minimum exit temperature 

TU Ateximum exit temperature 

Total energy discharged 

Calculation Sequence 

1 i M2 = AAl 
T = TO 
AAP2 = AAPl'JfEFO 
EF2 = EFO 
P2 = P1-5<£F0 

2) Compute Statistics 


Units 
I b/ hr 
°F 
kw 


kw 


lb/ hr 
°F ^ 
kw 
kw 



kwh 
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CHY 

C 


HY 


SUBROUTINE HYiM2,T,Ra.„p2.jP2,TL,TU.SP,MI.T0.Pl.EF0,MPll 

purpose performance of adiabatic heat exchanger during discharge 

CYCLE 

METHOD COMPUTE EXIT CONDITIONS USING HEAT EXCHANGER STATE 

determined in hx 

i«fRlTEi>i BY F, 0, MAHONY 

riArtUNY VERSION 1, MARCH Z1 1977 

CALL SEQUENCE 
OUTPUTS 

M2 - EXIT AIR MASS FLOW RATE LB/HR 

^2 ■ ‘"TO., ^EG F ' 

PZ “ TOTAL DISCHARGE POWER. KW 

tc- ” maximum discharge power, KW 

EFf^; ~ OUTPUT PRODUCT EFFICIENCY 
STATISTICS 

Ih “ [JImimum exit temperature, deg f 
SP I temperature, deg F 

SP TOTAL ENERGY DISCHARGED, KWH 
INPUTS 

TO I STORAGE, LB/HR 

cJr» POWER FROM STORAGE, KW 

FFO — iilSCHARGE CYCLE EFFlCIE^fV 

MPl - MAXIMUM POWER FROM STORAGE, KW 


^ COMMON /CIMPL/IMPL /CSIMUL/OUM (6), tiNC 

REAL M2,MP2,M1,MP1 
C i 

1F(IMPL-GT.0)G0 TO 100 
C 

TU =0.0 
SP =0.0 
C 

TL =i.0£10 
IOC M2 =M1 
T =T0 
P2 =P1*EF0 
MP2=MP1*£F0 
EF2=£F0 
C 

iFIlMPL.LE.DRETURN 

C : j 

TL =AMIN1CTL ,T > 
tU =AMAX1(TU ,T ) 

C I 

SP =SP ♦P2*TlNC/2.0 

C 

RETURN 

END 


«» V 

f 

t 
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7.21 INTEGRATOR WITH SATURATION 


Inputs 

Parameter/Port 

FIN 

GKI 

GKL 

AIWA 

AMI 

OiLtPuts 

Variahip/Pnrt 

F0 



\ Description 

Input 

Integration gain 
Saturation limiter gain 
Upper limit of output (Default 
Lower limit of output (Default 


Output (state) 


10^® I 
-10^®. 


Calculationi S equence 

FC = GK I * [ F I N-GKL^f-( F0-AA/IA ) ] 
F0 = GKI fin 

F0 = GKItt [FIN-GKL*(F0-AMI ) ] 


if F0 > Am 
If AMI ^ F0 <AiV\A 
if F0<AMI 
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r 


c revised: OCT 8 1976 

PURPOSE - SIMULATIOM OF AM INTEGRATOR *,ITH SATURATION 

C METHOD - SEE CODING 

C STMO^*sTATe“cwIvEto^g°'' «ESUL1 IN POQR 


written by - ADAM LLOYD 
INPUT/OUTPUl LIST 


latest revision - NOV 75 


FO 

FODOT 

IFO 

FIin 

GKI 

GKL 

AMA 


eps=fin 


Integrator output 

OUTPUT DERIVATIVE 

integrator control 
function input 
integrator gain 

WPETL^fr'-nS^'^'' 

UrrtR LIMIT OF OUTPUT 

LONeI 

i-uwtK LIMIT of output 
WHERE DERIV. UNITER STARTS 


OUTPUT STATE 
OUTPUT DLRIV 
program VAR 
input VAR 
INPUT PARAM 
INPUT PARAM 
INPUT PARAM 

input PARAM 


{^|j;;^E0..99w?AH®f^*^LTS THAT ELLIMINATE SATURATION 
'*«• ee-. 99999 ) AMI =.-l.E3A 

lEII Ea.NE!2}^0^0%;0KiJEp's"'‘‘-*‘ * 

END 
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7.22 DC-AC INVERTER 


DC POWER (PI) 

INPUT MAX. POWER (MPl 



AC POWER (P2) 

OUTPUT EFFICIENCY 
OUTPUT MAX. POWER 


(EF2) 

(MP2) 


This component models a solid state i nverter/ transformer. Power losses due 
to resistive heating and contact potential loss are modeled, A step-up trans- 
former may also be needed to boost output voltage up to that of the bus. 
Default parameter values are based on rated power = 200 kw. 



FIGURE 7.22 INVERTER FUNCTIONAL DIAGRAM 
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Inputs* 

Parameter/Port 

Description 

Units 

P 1 

DC input power 

kw 

RT 

Transformer resistance (D = 0) 

ohms 

VDC 

Rated DC voltage (D = 100) 

volts 

DI 

Inverter contact potential (D = 0) 

volts 

RI 

Inverter resistance (D = 0.005) 

ohms 

RAP 

Rated input power 

kw 

EF i 

Input product efficiency 


MP 1 

Maximum input power 

kw 

CC 

Inverter cost/year 

$ 


Outputs 



Variable/Port 



P 2 

AC output power 

kw 

IDC 

DC input current 

amps 

PL 

Power loss 

kw 

EF 2 

Output product efficiency 


MP 2 

Maximum output power 

kw 

* Minimum inputs 

to specify IV are: 



RI = inverter resistance, 

RAP = rated input power. 

RI may be used as an adjustment parameter to obtain a specified efficiency at 
rated power. 


D - Default values supplied. 

^ ■ 
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Calculation Sequence 




If PI < 0, P2 = IDC = PL = 0, EFF = 1 and go to 3 J 

1) Input and output current 

IDC = P1*1000/VDC 
lAC = VeilDC/TT 

2) Power loss and output power 

PL = ( !DC*(DI+R|*IDC) + V^T*! AC^)/1000 
P2 = PI - PL 
EFF = P2/P1 

P2 5 0 O Diagnostic, EFF = 1 

3) Efficiency and maximum power 

EF2 = EFl^fEFF 

AAP2 = /V\IN(MP1,RAP)^FF 

4) Compute Costs 
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C i 
C I 

c ^ 
c 

c i 
c ; 

C I 
C I 
C ’ 

c 


c 

c 

C 1 

c i 
c ■ 
c 
c 
c 

c i 

C ! 

c I 
c 

C i 

c 

c 

c 


c 


pBROUlIMfc IV(P2,lDC,PL,£F2,MP2tPlfRT,VDC,DI,fU,RAPttFl,MPl,CC> 

PURPOSE SOLID STATE IMWER TER/TRANSFORMER MCOEL 

ME 1 HOD COMPUTE AC POMER ^S A FUNCTION OF 
INPUT DC POWER 

WRITTEN BY Y.A.CHAN VERSION It JUNE 2t L977 

CALL ScQUENCE 

OUTPUTS 

P2 “AC OUTPUT POWER, Ktf 
IOC “DC INPUT current, AMPS 
I PL -POWER LOSS, KW 

EF2 “OUTPUT POWER EFFICIENCY 
^ MP2 “MAXIMUM OUTPUT POWER, KW 

INPUTS 

PI “DC INPUT POWER, KW 
RT “TRANSFORMER RESISTANCE, OHMS 
I VOC “RATED DC VOLTAGE, VOLTS 

DI “INVERTER CONTACT POTENTIAL, VOLTS 
RI “INVERTER RESISTANCE, OHMS 
RAP -RATED OUTPUT POWER, KW 
EFl -INPUT PRODUCT EFFICIENCY 
MPi “MAXIMUM INPUT POWER, KW 
CC -INVERTER COST/YEAR 

COMMON /CIMPL/IMPL,ICNT/CTIME/TIME/CSIMUL/DUMI7I ,TMAX/COST/CC I 
REAL 10C,MP2,MP1,IAC 
DATA PI/3.14159/ 


IF(IMPL-GT.O) GO TO 100 
IFCRT.EQ..99999)RT=:0. 

IF( VOC.£Q..99999)VDC=100. 

IF (OI.EQ.. 99999)01=0. 

IF (RI.EQ.. 99999) RI=. 005 
TMAX1=TMAX«. 99999 
C 

C COMPUTE INPUT AND OUTPUT CURRENT 

C 

100 IFCPl.GT.O. )G0 TO 200 
P2=0. 

IOC=0. 

PL=0. 

EF2=EFl 

MP2=AMINICMP1,RAP) 

GO TO 400 

200 I0C=P1*1000./VDC 

IAC=SQRTI 6. ) *IDC/P I 
C 

C POWER LOSS AND OUTPUT POWER 

C 

PL=(IDC»(D1+RI*I0C)+SQRT (3. )*RT*IAC*IAC 1/1000. 

P2=P1-PL 

EFF-P2/P1 

EFFICIENCY AND MAXIMUM POWER 


C 

C 
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tF2=£Fl*£FF 

NP2-AMIN1(MP1«RAP) 

MP2-MP2»EFF 
1F{P2.GT.0.)GD TO 400 
C 

EF2=tFl 

MP2=AN1NL(MPL»RAP) 

1F(IMPL.EQ.2)WR1T£(6,208)PL»P1 
208 FORMATC 1H0.14HIV POWER LOSS »F12.3»21H EXCEEDS INPUT POWER fFL2.3t 
128H CHECK RATED DC VOLTAGE VDC ) 

1F(1MPL.EQ.2I1CN1 = 1CN1-*^1 
P2=0. 

C 

400 IFCIMPL.LE.DRETURN 

IF| ( T THE . LT. TNAX 1 ) RETURN 

CCI=ClI+CC 

RETURN 

END 
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7.23 FIRST ORDER LAG 




FIN 

GAI 


TC^«S + 1 


P-escripM<^n 
Input quant I ty 
Gain 

Time constant^ (hours) 
Output variable (state) 

Calcul atJon Seguenr.ta 

m 

F0 == (GAI FIN - F0)/TC 
NOTE: d.c. gain = GAI; time constant = TC 

infinite frequency gain = 0 

pole location = rad/sec. 


Snouts 

Parameter/Por^ 

FIN 

GAI 

TC 


If TC = 0, then F0 = FIN^AI 
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CLA 

SUBROUTINE LACF0,F0D0T,IF0,F1N,GAI,TC) 
PURPOSE « TO SIMULATE FIRST ORDER LAG FO 


GAI 



FIN Cl.>fTC*S) 


METHOD “ SEE COOING 


WRITTEN BY - ADAM LLOYD 


LATEST REVISION NOV 7^ 


INPUT/ CUT PUT LIST 


FO TRANSFER FUNCTION OUTPUT 

FODOT TRANSFER FUNCTION OUTPUT DERIV. 

IFO INTEGERATOR CONTROL 

FIN TRANSFER FUNCTION INPUT 

GAI TRANSFER FUNCTION GAIN 

TC TIME CONSTANT 

C0MM0N/C10/IREAD,1WRITE,IDIAG 
IFiTC-NE.O.) GO TO 10 
F0= GAI+FIN 
RETURN 

10 IFUF0.NE.0I FODOT=IGAI*FIN“FO)/TC 
RETURN 
END 


ANY 

OUTPUT 

STAIE 

ANY 

OUTPUT 

STATE 


PROGRAM 

1 VAR 

ANY 

INPUT 

VAR 

— 

INPUT 

PARAM 

SECS 

INPUT 

PARAM 
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7.24 LEAD LAG 



FIN 

GAI(TC1*S + 1) 

F0 


TC2^<S + 1 



l0PM.t§ 

Parameter/Port 

FIN 

TCI 

TC2 

GAI 


Outputs 
VariabI e/Port 
XI 
F0 


I Description 

Input quantity 

Numerator time constant (hours) 
Denominator time constant (hours) 
Gair 

Intermediate quantity (state) 
Output quantity (variable) 


Calculation Sequence 

F0 = (XI + FI N^5-TC1^A I ) / TC2 
XI = GAI*FIN-FG 
NOTE; d.c. gain =? GAI 

infinite gain = 

TC2 

zero location = - , rad/sec 

pole location = - , rad/sec 
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CLL 

subroutine LLCXltXIOOTtlXlf F0»FlNtTCItTC2fGAI ) 
F^RPUSE TU SIMULATE LEAD LAG TRANSFER FUf^;CTlUN 

FO GAI»(1.4-TCI*S) 

fin I1.^TC2*S) 

METHOD - SELF EXPLANATORY 

LIMITATIONS - NONE 




i 


WRITTEN BY - ADAM LLOYD 


LATEST REVISION NOV 75 


INPUT/OUTPUT LIST 


XI STATE variable 

XIDOT STATE VARIABLE DERIVATIVE 

IXl INTEGRATOR CONTROL 

FO TRANSFER FUNCTION OUTPUT 

FIN TRANSFER FUNCTION INPUT 

^01 TIME CONSTANT (NUMERATOR) 

time constant (DENOMINATOR) 
1>AI TT(ANSF£R FUNCTION GAIN 

CQMM0N/C1Q/IR£AD,IWRITE,IDIAG 
F0=(XH^FIN*TC1*GAI )/TC2 
IF(IX1-NE.0)X1D0T= GAI^FIN-FO 


return 

END 


ANY 

OUTPUT 

STATE 

ANY 

OUTPUT 

STATE 


PROGRAM VAR 

ANY 

OUTPUT 

VAR 

ANY 

INPUT 

VAR 

SECS 

INPUT 

PARAM 

SECS 

INPUT 

PARAM 


INPUT 

PARAM 


1 
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7.25 ELECTR I CAL LOAD 



VALUE OF ENERGY.DELIVERED (VDE) 


MAX. INPUT POWER (MPl) 
INPUT POWER (PI) 
RECORDED LOAD (LOl) 
LOAD PROFILES (PD,PW.PY 
time inputs (TD.DW,WY) 



POWER REQUEST (REl) 


This component represents electrical load either by a user-specified data 
file time history or by a set of random numbers with user-specified daily, 
weekly, and yearly average profiles and user-specified random variation. 

It also computes the value of the power delivered to the load by the sys- 
tem. This value delivered is determined from a user-specified value per 
kwh. This value may be input in tabular form as a function of time of day, 
time of year, or any other system parameter. 

If the user selects to have the electrical load represented by random num- 
bers, then the load (L02) is generated from the following equation: 


Rasic Equation 

L02 = [pD(TD) + cNit) ] * 

where 

PD^ PW, PY are the daily, weekly, and yearly profiles, respective- 
ly, and TD, DW, WY are the time of day, day of the week, and week 
of the year, respectively. NC Is a normalizing constant. 

CN is a colored noise term with user-specified correlation time, standard 
deviation and mean. 
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Tables 

Ascription 

Aits 

PD 

Daily profile (tabular with TD) 

kw 

PW 

Weekly profile (tabular with DW) 

arbi trary 

PY 

Yearly profile (tabular with WY) 

arbi trary 

Inputs 

Parameter/Port 

P 1 

Power del ivered 

kw 

MP 1 

Maximum Input Power deliverable (D = IXIO^^) 

kw 

NC 

Norma 1 1 z 1 hg constant 


VE 

Value of Electrical Energy 

$/kwh 

-J 

Electrical load data file input 

kw 

TD 

Time of day 


DW 

Day of Week 



WY 

Week of year 


CT 

Correlation time of random noise 

hr 

MN,STD 

Mean (D = o) and std, deviation of random noise 

kw 

EF 1 

Input Power Efficiency 


AULtPMtg 

Variable/Port 

RE 1 

Power request 

kw 

VDE 

Value of energy delivered (state) 

$ 

CM 

-J 

Electrical load 

kw 

TIM 

Last time a random sample was used 

hr 

CN 

Colored noise sample 

kw 

Statistics 



SRE 

Total energy requested 

kwh 

SDE 

Total energy delivered 

kwh 

PC 

Percentage of load met 



D - Default Values supplied 
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Calculation Sequence 


> 1 

’»i - J 



1) Initialize CN(0) (first pass) 

2) Check for data file Input 

If L01 = .99999 go to 3) 

L02 = L01 and go to 5) 

3) Generate colored noise CN 

If TIM = TIME go to 5) 

A - I exp ( - A /CT), CT > 0, A= Integration step size, hr 

V 0. CT=0 

CN = a^k:n+w. 

Where W Is white noise generated by RN with 

Mean = MN -5^ (1-A) and standard deviation - STD \i-A^ 

4) Compute L02 

L(32 = CPD(TD) + CN) PW(DW) PY iWO ^ NC 
TIM = TIME 

5) Power request and value delivered 

RE = MIN(MP,L02)/EF1 

5) Statistics 

VDE = PIWE 
SRE = SRE + L02*A/2 
SDE = SDE + PI* A/2 
PC = 100.* SDE/SRE 


^ % 

#■ 
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CLO 


c 

c 

c 

€ 

t 

e 

c 

t 

c 

c 

q 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

cl 

c 

c: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 






PURPOSE 


METHOD 


RAMDQM PRDFILE^DATA ANO^EVALUATF^ppo YEARLY AND 

UAIA AND EVALUATE PERFORMANCE STATISTICS 


written sy a. m. warren 


bY*"wEEKLY^ANO Y^RLY^WElLriNG^CNS^^’^n^^ MULTIPLIED 

the .iENCRATtO LOAD OR THE 512? pS2w DELiSeMBLE ^ 


CALL SEQUENCE 

tables 

PD 

PW 

PY 


VERSION It MARCH 9 19J 


• a 


~ MEAN DAILY PROFILE, KM 

- MEAN Wti;KLY PROFILE, — 

— MEAN YEARLY PROFILE, - 


OUTPUTS 

VDE — VALUE OF ENERGY DELIVERED « 

UVD - DERIVATIVE OF VOE <STATt), $ 

IVO - INDICATOR FOR VOE 
RE - POWER REQUEST, KW 

I demand, KW 

foF - DESIRED, KWH 

SDE SUM GF ENERGY DELIVERED, KWH 

J'^^‘^‘-A1IVE PERCENT OF LOAD DELIVERED . 
TIMC LAST TIME A RANDOM SAMPLE WAS USED HR 
XN - COLORED NOISE SAMPLE, KW * ^ 


INPUTS 

ID -- TIME OF DAY, HR 
OW - DAY OF WEEK (1-7) 

WY - WEEK OF YEAR (1-52) 

XNC — NORMALIZING CONSTANT, — 

~ CORRELATION TIME OF RANDOM NOISE, HR 
XMN - MEAN OF RANDOM NOISE. KW 

Sp - STANDARD DEVIATION OF RANDOM NOISE KU 
. ni : ELECTRICAL ENERGYr$/KiH 

LDl ELECTRICAL LOAD DATA FILE INPUT yu 
PMAX- max. input power DELIVERABLE Kw 

PU - POWER DELIVERED TO^Ki’ “ 

EF - INPUT POWER EFFICIENCY 


DATA AX/. 99999/ 


initialization 


NO = P0(2) 

NW = PW(2) 

INY = PY(2) 

IF( IMPL.GT.O) go to 10 
IFfXMN.EQ. .99999 )XMN=:0. 


M 

I 
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oo oo noo nor' 


TMAXl = TMAX*. 99999 
TIM0=-1. 

SRE ^0.0 
SOE =0.0 
PC =0.0 

CALL RNI(XNtAXtST0»XMN) 
1F4PMAX.EQ. .99999) PMAX = I.EIO 



CHECK FOR DATA FILE INPUT 

10 lF(L01.tQ. -999991 GO TO 100 
L02 = LOi 
GO TO 150 

GENERATE COLORED NOISE SAMPLE XN 

100 IF( TIML.EQ.TiME) GO TO 150 
A=0. 

IPCCT.GT.O.) A = EXP(-TINC/CT) 

WMN = XMN*il.-A) 

WSD = STD^SQRT(1.-A*A> 

CALL RN(W vAXvMSDrWMN) 

Xit ~ + W 

COMPUTE ELECTRICAL LOaO DEMAND 

DLO = TaLUUTD,PD(A),PD(ND+4),l,-ND) 

WLO = TaLUl(0W,PW{4),PW(NW^4),l,-NH) 

YLO = TBLU1(WY,PY(^),PY(NY+4),1,~NY) 

L02 = (DLa+XN)^WLG ♦ YLO^XNC 
TIMO = TIME 

150 RE = AMINliPMAX,L02)/EF 

PERFORMANCE STATISTICS 

IFCIMPL.LE.I) RETURN 
IFdYD.NE. 0) DVD = PC^Vt 
SRE = SRE + LOE^O.b^TINC 
SDE = SDE 4 PD+0. SITING 
lF(SRE.GT-0. ) PC = lOO.^SDE/SRE 

IF ( TIME. LT. TMAXl) RETURN 
CV = CV + VDE 

COE= CDE * SDE- PD*0.5*TINC 
CRE= CRH + SRE- LC2^0.5*TINC 
RETURN 
END 


M.. 


264 


BCS 40262-1 




FIN 

Cl 

C2 


Input quantity 
Input quantity 
Input quantity 


Outputs 
Variable/ Port 

FO Output quantity 

Calculation Sequence 

F0 = Cl-JfFiN + C2 
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ooor>or>noooo n n o 0000 o 


CMA 


SUBROUTINE MA«FO,FIN,Cl,C2) 

PURPOSE ~ TO SINULA1E THE EQUATION OUT PUT =C1* INPUT + C2 
HETHOD - SEE COOING 

WRITTEN BY - AOAN LLOYD LATEST REVISION NCV 75 

LIMITATIONS - NONE 



INPUT/OUTPUT LIST 

FO OUTPUT VARIABLE 

FIN INPUT VARIABLE 

Cl CONSTANT MULTIPLIER 

C2 CONSTANT ADDITION 

FD=C1*FIN + C2 
RETURN 
END 


ANY OUTPUT VAR 

ANY INPUT VAR 

INPUT PARAM 

INPUT PARAM 
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7.27 /MULTIPLY, DIVIDE, AND ADD 


ENA 

FNB 


Cl 

C2 

C3 


C4 

CB 


|F0=C1*FNA + C2-»FNB + 

CWNA-WFNB + C4*FNA/FNB + Csl 


Inputs 

Parameter/Port 

Os 

FNA 

Input quantity 

FNB 

Input quantity 

Cl 

Input quantity 

C2 

Input quantity 

C3 

Input quantity 

C4 

Input quantity 

C5 

Input quantity 

Oul-PUts 
Var iabi e/Port 

F0 

Output quantity 


Calculation Sequence 

F0 = Cl*FNA+C2»FNB+C3^fFNA*FNB+C4^NA/FNB+C5 
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SUaftOUTIiME MttCF0,FNA,FN6,Cl,C2,C3,C4,C5) IB 

PURPQSt - TO SIMULATE THE EQUATION V=Cl*XA*C2*XB+C3*XA^XB+C4+XA/Xfi^^C 

WRITTEN BY - GEORGE DULEBA LATEST REVISION MAY 76 

LIMITATIONS - IF FNBs^O DURING OIVISIONf FNB IS SET TO E-20, 

DIAGNOSTIC MESSAGE IS GIVEN. 


INPUT/OUTPUT LIST 


FCi OUTPUT VARIABLE 

INPUT VARIABLE A 
FMB INPUT VARIABLE h 

Cl MULTIPLIER 1 

C2 MULTIPLIER 2 

C3 MULTIPLIER 3 

C4 MULTIPLIER 4 

C5 ADDITIVE VARIABLE 


eOMMCW/ERMESS/IFATALtlERR 
COMMDN/CIO/IREADslWRITE, IDIAG 
FO= C1»FNA C2=>FN3 + C3*FNA*FNB C5 
IF(C4.EQ. 0.99999) GO TO 30 
IFIFnB.EQ.O. ) GO TO 10 
F0= FO + C4^FNA/FNB 
RETURN 

10 WRITEUWRITE,20) 

2^20)’^*^’’°^* 53HWARNING- DIVISOR IN MB EQUALS 0., HAS BEEN SET = 1. 

FO- FO ♦ C4*FNA*l.E-f20 
30 RETURN 
END 


ANY 

OUTPUT 

\ 

ANY 

INPUT 


ANY 

INPU. 


ANY 

INPUT 


ANY 

INPUT 

\ 

ANY 

INPUT 

\ 

ANY 

INPUT 


ANY 

INPUT 
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7.28 MULTIPLY AND ADO 


PIN 


F10 


PIP 


ci 


C2 


C3 


C4 


F0=C1*FIN + C2^\Q + CJMPIP + C4 


F0 


Inputs 


Parameter/Port 

Peso 

FIN 

Input quantity 

FI0 

Input quantity 

FIP 

Input quantity 

Cl 

Input quantity 

C2 

Input quantity 

C3 

Input quantity 

C4 

Input quantity 

Output^ 


Variable/ Port 



F0 


Output quantity 


Calculation Sequenn<=» 

F9 = Cl-MflN + C2«FI0 + C3^IP + C4 
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CMC 

SUBMGUTK^t MC(FO*PlNtFIO«FIP »Cl«C2tC3»C4) 

PURPaSfc - TO SlHULATt THE EQbATlCM F0=C1*F1N*C2»FI0+C3*FIP+C A 

METHOD - SEE CODING 



WRITTEN BY - ADAM LLOYD 
LIMITATIONS - NONE 
INPUT/ OUTPUT LIST 

LATEST REVISION 

NOV 7 b 


FO 

OUTPUT VARIABLE 

ANY 

OUTPUT 

VAR 

FIN 

INPUT VARIABLE 

ANY 

INPUT 

VAR 

Flo 

INPUT VARIABLE 

ANY 

INPUT 

VAR 

FIP 

Input variable 

ANY 

INPUT 

VAR 

Cl 

CONSTANT MULTIPLIER 

— 

INPUT 

PARAM 

C2 

CONSTANT MULTIPLIER 

— 

INPUT 

PARAM 

C3 

CONSTANT MULTIPLIER 

— 

INPUT 

PARAM 

C4 

CONSTANT ADDITION 

— 

INPUT 

PARAM 


F0=Cl*FIN+C2*FI0-»-C3*FIP+C4 

RETURN 

END 
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MO 

7.29 AC INDUCTION AWTOR 


POWER (P2) 

OUTPUT EFFICIENCY (EF2) 
OUTPUT MAX. POWER (MP2) 


The induction motor produces mechanical power and torque proportional to 
slip speed, i.e. power and torque approach zero as the rotor approaches syn- 
chronous speed. Two power losses are modeled: a constant multiplicative term 
due to resistive heating and an additive term due to mechanical friction. 

Default parameters are based on a conventional squirrel-cage induction motor/ 
generator machine. 


POWER (PI) 

INPUT MAX. POWER 

rotor' SPEED (RS) 



Basic Equations 

P2 = EE*Pl + DA*RS^*C 

where 

Pl,P2 = input and output power 
EE = electrical efficiency 
DA = mechanical damping 
C - conversion constant 
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MO 

(nputs 


Parameter/Pnrf 

D^LScrlption 

1 

Units 

P 1 

Input power 

kw 

DA 

Mechanical damping (D = O) 

jou 1 e-sec 

RS 

Rotor speed 

RSY 

Synchronous rotor speed (D = 1800) 

rpm 

rpm 

ohms 

SR 

Stator resistance (D = 8/RAP) 

VO 

Rated input voltage (D = 400) 

vol ts 

RAP 

Rated input power 

kw 

RAS 

Rated power slip (D = 0.05) 

~ i ' 

EF 1 

Input product efficiency 

.... 1 
: 1 ' 

MP 1 

Maximum input power (D = 1x10®) 

kw 

CC 

Capital cost /year 

$ 

CM 

Maintenance cost/year 

$ 

Outputs 


Variabl6/Pnrt 

P 2 

Output mechanical power 

kw 

EE 

Electrical efficiency 


T0 

Mechanical torque 

ft-lb 

PL 

Power i OSS 

kw 

EF 2 

Output product efficiency 


MP 2 

Output maximum power 

kw 

Stat ist i cs 

MT 

Maximum torque 

ft-lb 

MPN 

Maximum output power/ rated power 


SP 

Output energy sum 

kwh 

D — Def au It va 1 ues 

supplied. 
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Calculation Sequence 


MO 


1) Compute electrical efficiency (first pass only) 

I = RAP^flOOO/VO 

EE = 1 - SR^H p^^/RAPJflOOO 

2) Diagnostics 

PI >RAP O diagnostic 

SUP = 1 - RS/RSY > RAS O DIAGNOSTIC 

3) Output power and power loss 

U) = RS^'M2TT/60) 

P2 = EE-i«f»l - DA-)'f 0)^/1000 
PL = PI - P2 

4) I f P2 > 0 go to 5) 

PI > 0 O diagnostic 

EF2 = EFl, MP2 MINIAAPl,RAP) 

Go to 7) 

5) Compute torque 

T0 = P25fl000/ 0) -JIK 
k = 1.3558 Joules/ft-lb 
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MO 

fialculation Sequenr.<=> X j 

6) Efficiency and maximum output power 

EF2 = EFl.'f{P2/Pl) 

/WP2 = MIN{MP1,RAP)-5{-(P2/P1) 

7) Compute Statistics and Costs 



• 
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o n n n r> n n n r. o n o o r n n o n n o o n n o r> c o o o o n o m 


CMO 


SUSRuUTlNt MU(P2,£t,10,PL,E:F2,MP2,MT,MPN,SP, 

1 f*l»^A,RSfRSY,SR, VO,RAP,ftASf tFl ,MPi,CC,CM) 

i PURPOSE AC INDUCTION MOTOR MODEL 

METHOD MECHAi*lCAL POWER AND TORQUE CALCULATED 
FROM INPUT AC POWER AMO ROTOR SPEtD 

WRITTEN BY Y.K.CHAN VERSION It JUNE i3t 1977 

CALL SEQUENCE 
OUTPUTS 

PZ -OUTPUT mechanical POWER, KW 
£c -ELECTRICAL EFFICIENCY 
TO -MtCHANICAL TORQUE, FT-LB 
PL -POWER LOSS.KW 
EFZ -OUTPUT POWER EFlflClENCY 
MP2 -OUTPUT MAXIMUM POWER, KW 
STATISTICS 

MT -MAXIMUM TORQUE, FT-LB 

MPN -maximum OUTPUT POWER/RATED POWER 

SP-OUTPUT POWER SUM 

INPUTS 

PI -INPUT POWER, KW 

DA -MECHANICAL DAMPING , JOULE-SEC 

RS -ROTOR SPEED, RPM 

RSY -SYNCHRONOUS ROTOR SPEED, RPM 

SR -STATOR RESISTANCE, OHMS 

VO -RATED INPUT VOLTAGc,VOLTS 

RAP -RATED INPUT POWER, KW 

HAS -RATED PWER SLIP 

EFi -INPUT PRODUCT EFFICIENCY 

MPl -MAXIMUM INPUT POWE,KW 

CC -CAPITAL COST/YEAR,$ 

CM -MAINTENANCE COST/YEAR,$ 


C 


C 

C 

c 


COMMON /E1MPL/IHPL,ICNT/CTIME/T1ME/CS1MUL/0UMC7),TMAX 
X /COST /CC1,CMI, COP, VDE, TOE, TL0,U1V,UTD 

REAL MPZ,MT,MPN,MP1 


1F(IMPL-GT.0)GD TO 100 
1F(DA.£Q..99999)DA=0. 

IF ( RSY. EQ.. 99999 )RSY=1 800. 

IF( S R. EQ.. 99999 )SR=8. /RAP 

IF( V0.EQ..99999)V0=400. 

IF<MPl.EG..99999)MPl=l.E8 

IF(RAS.EQ..99999)RAS=.05 

TMAX 1=TMAX* . 99999 

MT=0. 

MPN==a. 

SP=0. 

TINC=DUM(7>».5 

COMPUTE ELECTRICAL EFFICIENCY 


EE=1 .-SR«RAP*1000./(V0*V0) 
100 IFiPl.LE.RAP^l.OOl I&O TO 200 
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o o n 


200 


30& 


C 

c 

c 


- ^ INPL «£Q .2 ) WR IT£ ( 6 v 208 ) P I«RAP 

208^FQRHATUHC,18H HUTCR Input P0NER,FX2.3,23H 

IF(lMPL.fcg.2)lCNT^lCMT+l 
SLIP = l,-(f<s/RSY) 
lF»SL.IP.Lt.RAS)GO TO 300 
IFiIMPL.EQ.2)WRTTt(6,308)'vlTP ba c 
^FORNaTUHO.XTH HOTUR EXCEEDS 

IF(IMPL,EQ.2)lCNl = lCiil^i 

COMPUTE POWER AMO POWER LOSS 

300 CMfcGA=^RS*3.14l59/30. 

PL-P 1—P2 
T0=0. 

1F(P2.GT.0.)GG to 400 
IF(Pi.L£.o.}GO TO 409 
IFiIMPL.EQ.2)WRiTt(6,406)SR.nA 

STATOR RESISTANCE 

™ high for motor ) 

IF( IMPL.eg.2) ICNT=ICMT+1 




aGT.RATEO input POWE.R 


rated power slip. 


fF12.3,12H OR DAMPING 


409 CONTINUE 

P2=:0. 

LF2=cFI 

MP2=AMINHMP1,RAP ) 

r' r% -r rv 


efficiency and maximum output power 


c 

c 

c 


400 


500 


GO T 0 500 
£F2-EF1*P2/P1 
MP2=AMINUMPI,RAP)*P2/P1 
IFIRSnNE.O. )T0=P2 *737. 6/omega 

IFUMPL.LE.DRETURN 

STAIISTICS 

MT=AMAX1(T0,MT) 

MPN=AMAX1(P2/RAP,MPN) 

SP=SP+P2*TINC 

ifitime.lt.tmaxdreturn 

CCI=CCI^CC 

CMI=CMI+CM 


RETURN 

END 
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7.30 POWER ACCUMULATOR 




MAX. OUTPUT POWER (MPO) 

POWER REQUESTS 
(RE1,RE2,RE3,RE4) 

POWER OUTPUT (PO) 


This component sums power from four input ports and allocates power re- 
quests to each port's source of power generation. An input power request 
IS allocated according to user-supplied weights within the ports of high- 
est priority. If an input power request (load) exceeds the maximum power 
that can be delivered by the ports of highest priority, then the remaining 
load is allocated to the next priority ports. (See 1.2.2 and 7c for 
further discussion.) 
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Inputs ^ 



Parameter /Port 

Description 

Units 

RE 

0 

Load request 

kw 

EF 

1.2. 3, 4 

Input efficiency from port i 

1 

P 

1.2, 3,4 

Input power from port i (default = 0.) 

kw 

PS 

1, 2,3,4 

Priority sequence (default = 1,2, 3, 4) 


F 

1, 2,3,4 

Allocation weight (for equal priorities) 


MP 

1,2, 3, 4 

Maximum power (default =0.) 

kw 


Outputs 

Variable/Port 


MP 

0 

Maximum deliverable power (2MP(i)) 

' i 

kw 1 

RE 

1,2, 3, 4 

Power request for port i 

1 

kw S 

P 

0 

Power output 

i 

kw 

SP 


Supplemental power request to meet load 
(Power deficit = REq - 2MP,|) 

kw 


Statistics 

SRE 

PC 1,2, 3,4 


Sum of energy requested 

Percent of cumulative load request 
delivered by port i 


kwh 

% 


No capital costs assigned 
a physical device. 


since this is an allocation component, not 
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calculation logic 


• PO «SP(k) 

•IFPS(k)^0 SETMP(k)«0 ksl,2,3,4 

• MPO p SMP(k) 


MP04 REO ? 


INITIALIZE REQUEST LOGIC 
SP » RE(k) = 0. K=1 .2,3,4 
RL - REO 
1 = 1 



• RE(k) = MP(k)/EF(k) 

• SP « REO-MPO 

© 


SUM MAXIMUM POWER SMP FOR 
PORTS WITH PRIORITY I 


I * I+l 


SMP< RL ? 


60 TO FAIR SHARE ALLOCATION 
fNEXT PAGE) 


* SET EACH PRIORITY I REQUEST 
AT MAXIMUM POWER 


• RL = RL - SMP 


GO TO © 


BliHa 



























SUBROiiTIMt PA(MPO, 
i RLt R2, R3, R4, 

! I POtSP, 

Sft»PCl,PC2,PC3,PC4, 

£Fl* EF2f £F3, EF4, 
Pif PZ, P3, P4, 

PRlf PRZt PR3, PR4f 
Wl, WZ, W3, W4, 

MPl, MP2, MP3, MP4) 


PA 


PURPCSE. MODEL POWER ACCUMULATOR 


METHOD. PRIMARY REQUEST ALLOCATION RESULTING FROM PRIORTtv 

allocation RESULTING 

♦ PORT WEIGHTS (IN CASE OF EQUAL PRIORTIES. ) 


FORMAL ARGUMENT DEFINITION. 


Rl, . . a , R4 s 
MPO : 

SP : 

PO : 

SR I 

PCI, ...,PC4 
RO : 

PI , • a . , P4 • 

PRI,..., PR4 

WI,a a., W4 : 
MPI, ...» MP4 


POWER REQUESTS IN KW (OUTPUTS) 

TOTAL MAXIMUM POWER (OUTPUT) 

SURPLUS REQUEST (OUTPUT) 

TOTAL LOAD llN KW (OUTPUT) 

SUM OF ENERGY REQUESTED, KWH (OUTPUT) 
PERCENT OF CUM LOAD DELIVERED (OUTPUT) 
TOTAL POWER REQUESTED, KW (INPUT) 


INPUT POWER IN KW 
PORT PRIORITIES 
PORT WEIGHTS 
: MAXIMUM POWERS 

EFFICIENCIES 


EFI, ..., EF4 : EFFICIENCIES 

COMMON STORAGE 
COMMON/ CIMPL / IMPL 
COMMON / CSIMUL / DUM(6), TINC, TMAX 
REAL MPO, MPl, MP2, MP3, MP4 


( INPUTS) 
(INPUTS) 
(INPUTS) 
(INPUTS) 
(INPUTS) 


LOCAL VARIABLES 


R(K) IS THE POWER REQUEST AT PORT K 
REAL R(4) 


PR(K) IS THE PRIORITY ASSIGNED TO PORT K 
REAL PR(A) 


W(K) IS THE WEIGHT ASSIGNED TO PORT K 
REAL W(A,) 


REAL Vp? 4)^^^”^” PCWtR TO BE ALLOCATED TO PORT K 


REAl*sw?4)^^ CF THE WEIGHTS ASSIGNED TO PRIORITY-1 PORTS 


SMP4I) IS THE SUM OF THE MAXIMUM POWER AT PRIORITY-! PORTS 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 


REAL SMPC4J 

FRU IS FAIR SHARE URIT FOR PRIORITY-! PORTS 

FR(K) IS THE COMPUTED FAIR SHARE REQUEST FOR PORT K 
REAL FRIA) 

LL IS THE LOAD LEFT AT EACH POINT IN THE ITERATION 
kEAL LLf LOLO 

IF IMPL IS ZEROt THEN ASSI&N DEFAULT VALUES 
IF (IMPL -OT- 0) GO TO 40 
RO - 0.0 

IF (PRl .EQ. 0.99999) PRl = 1-0 

IF (PR2 .EQ. 0-99999) PR2 = 2.0 

IF CPR3 .EQ. 0.99999) PR:J = 3.0 

IF (PR4 .EQ. 0.99999) PR4 = 4.0 

IF (MPl .EQ. 0.99999) MPi = 0 

IF «MP2 -EQ- 0-99999) MP2 = 0 

IF (MP3 -EQ. 0.99999) MP3 = 0 

IF (MP4 -EQ- 0.99999) MP4 = 0 

IF (PI -EQ- .99999) P 1=0.0 
IF(P2 -EQ. .99999) P2=0.0 
IF(P3 -EQ. .99999) P3= 0.0 
IF(P4 .EQ. -99999) P4=0.0 
SR = 0. 
pcr=o- 
PC2=0. 

PC3=0. 

PC4=0- 

TINCi= 0.5*T1NC 
40 CONTINUE 

IF THE TOTAL MAXIMUM POWER IS .LE. TOTAL POWER 
REQUESTED, THEN SUBMIT REQUESTS AT MAX-POWER, SET REQUEST 
SURPLUS EQUAL TO THE DIFFERENCE, AMD RETURN 
PO = PI -I- P2 + P3 ♦ P4 
IF(PRl-LE-O.O) MP1=0. 

IF(PR2-L.E.0.0) MP2=0- 
1F(PR3.LE.0.0) MP3=0. 

IF(PR4.LE.0.0) MP4=0. 

MPO = MPl + MP2 ♦ MP3 ♦ MP4 
IF (MPd .GT. RO) GO TO 80 
Ri = MPl/EFl 
R2 = MP2/EF2 
R3 = MP3/EF3 
R4 = MP4/EF4 
SP = RO - MPO 
GO TO 500 
30 CONTINUE 

PROCEED WITH ALLOCATION ALGORITHM SINCE THE SUM DF 
ALL MAXIMUM POWER INPUTS EXCEEDS THE TOTAL REQUEST RO 

INITIALIZATION 
LL = RO 
Rl = 0.0 
R2 = 0.0 








I 
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C 

c 


R3 = 0.0 
R4 - 0.0 
SP = 0.0 



c 

c 

c 

c 

c 


IF THt TOTAL REQUEST COR LOAD) IS ZERO 

IF CRO .LE. 0.0) GO TO 500 

R<1)=R1 

R(2)-RZ 


t then return 


RC3)=R3 
R(4)=R4 
PR Cl) = PRl 
PR (2) = PR2 
PRO) = PR3 
PRC4) = PR4 
Mil) = Ml 
W(2) = M2 
WC3) = M3 
W(4) = M4 
MPCl ) = MPl 
MP(2) = MP2 
HP (3) = MP3 
HPC4) = MP4 


ITERATE ON PRIGRITT I FOR 1 * l, £, 3 , 4 
DO 1000 I = 1, 4 


100 


XI = I 

OBTAIN SUM OF 
SMP(I) = 0.0 
00 100 K = 1 , 4 
IF (PR(K) .EO. XI) 
CONTINUE 


MAXIMUM POWER FOR PORTS WITH PRIORITY 


SMPCl I = SMP( I) + HP(K) 


IF NO PRIORITY-1 MAXIMUM POWER 
THE NEXT HIGHER PRIORITY 
IF (SMPCl) .EQ. 0.0) GO TO 1000 


EXISTS, 


then proceed WITH 


IF THE SUM OF ALL PRIORITY-I 
LEFT , THEN GO AROUND 
IF (SMP(l) .GT. LL) GO TO 400 


maximum 


POWER 


.GT. 


LOAD 


maximum POWER .LI 

LEFT, SO SUBMIT EACH PRIORITY-I REQUEST 
DO 200 K = 1, 4 

IF (PRCK) .EQ. XI) RCK) = MPCK) 

200 CONTINUE 


LOAD 


: UPDATE LOAD LEFT 
LL = LL - SMP(I) 

j I 


If THE REMAINING LOAD IS ZERO, 
IF (LL .LE. 0.0) GO TO 2000 


THEN EXIT THE ITERATION 


OTHERWISE, 
GO TO 1000 


PROCEED WITH NEXT HIGHER PRIORITY 


BCS 40262-1 


283 


OOOO OOOOOOOOO O OO OO OOOO ooo oo ooooo 


400 CONTIMUE 



THE SUM OF THE PftIORlTY-1 MAXIMUM POWER EXCEEDS THE 
LOAD LEFT. SO COMPUTE AMO SUBMIT FAIR SHARE REQUESTS 
TO EACH PRIQRITY-I PORT 

600 CONT INUE 

SAVE LL FOR LATER REFEREMCE 
LOLD = LL 

DETERMIME FAIR SHARE UMITS FOR ALL PRIORITY-I 
PORTS TO WHICH MO REQUEST HAS BEEN SUBMITTED 
SWm = 0.0 
00 700 K = 1, 4 
IF (R(K) .ME. 0.0) GO TO 700 
IF (PRCK) .EQ. XI) SW(I) = SW(1) + W(R) 

700 COMTINUE 

FRU = l.O / SW<I) 

FIRST, SUBMIT FAIR SHARE REQUESTS TO PORTS FOR WHICH THE 
FAIR SHARE REQUEST EXCEEDS THE MAXIMUM POWER. CONSIDER ONLY 
PORTS TO WHICH NO REQUEST HAS SEEN SUBMITTED 
DO BOO X = 1, 4 
IF (R(K) .NE. 0.0) GO TO 800 
IF <PR(K) .ME. XI) GO TO 600 

COMPUTE FAIR SHARE 
FRCK) ^ (U(K) * FRU) ♦ LL 

IF FAIR SHARE EXCEEDS MAXIMUM POWER, THEN SUBMIT REQUEST 
IF CFRCK) .GE. MPCK)) R(K) = MPCK) 

AND REDUCE LOAD LEFT TALLY 

IF (FR(X) .GE. MP(X)) LL = LL - MPIK) 

300 CONTINUE 

IF LL .NE. LOLD, THEN LL WAS REDUCED DURING THE 
PROCESSING IN THE DO 800 LOOP ABOVE. THIS CHANGES 
THE FAIR SHARE COMPUTATION. IT IS THEREFORE 
NECESSARY TO GO BACK THROUGH THE 00 800 LOOP IN 
ORDER TO RECONSIDER ANY PORT WHICH MAY NOW 
SATISFY THE REQUIREMENT THAT FR(K) .GE. MP(K|. ONLY 
PRIORITY-I PORTS TO WHICH NO REQUEST HAS BEEN 
MADE ARE ELIGIBLE FOR RECONSIO ERATION 
IF (LL .LT. LOLD) GO TO 600 

FINALLY, SUBMIT REQUESTS TO THOSE PORTS FOR WHICH THE FAIR SHARE 
•LT. THAN THEIR MAXIMUM POWER. CONSIDER ONLY 
PRIORITY-I PORTS TO WHICH NO REQUEST HAS SEEN SUBMITTED 
DO 900 K = 1, 4 
IF (R(K) .NE. 0.0) GO TO 900 
IF (PRIK) .ME. XI) GO TO 900 
R(K) = FR(K) 

900 CONTINUE 
LL=0.0 
GO TO 2000 
C 

1000 CONTINUE 
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2000 C0i«TINUE 

C 

C FINALLY, ASSIGN OUTPUTS TO NOM-SUBSCRIPTEO FORMAL PARAMETERS. 

C ALSO, MODIFY ALL REQUESTS ACCOR0IN& TO THE INPUT EFFICIENCIES 
R1 = RID / EFl 
R2 = RC2) / EF2 
R3 = RC3) / EF3 
R4 = R(4) / EF4 
SP = LL 

500 IFdMPL.LE.U RETURN 
SRO= SR 

SR=SR+ R0*TINC1 

IFtSR.LE.O.) RETURN 

SRO=SRO/SR 

SRI= TTNCl+lOO./SR 

PC1= PCDSRO + Pl=frSRl 

PC 2= PC2*SR0 -I- P2»SR1 

PC3= PC3*SR0 P3»SRI 

PC4- PC4*SRC P4«SRI 

RETURN 

END 
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7.31 POWER DIVIDER 





This component allocates power to four ports plus surplus based on priority 
and allocation weights for equal priority ports. Each port is assigned a 
priority sequence from 1 to 4, and a weighting F^>0, i=l,2,3,4 for propor- 
tional allocation among equal priority ports. If power available exceeds 
the power requested for the ports of highest priority, then the remaining 
power is allocated to ports having the next highest priority. If power 
available is less than the power requested for ports of equal priority, 
then power is allocated among them in proportion to their respective allo- 
cation weights. 

/ 

The total power request is the sum of the port requests divided by input 
efficiency. The maximum power outputs MPl,. . .MP4 are necessary for direct 

c-4 
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connections to 

« power accuiiiuUtor PA. These variables may 

be used as 

maxiniuin power 

Inputs to other components, although such connections are 

not required. 

(See l.g .2 jsnd 7c for further discussion.) 


In|3uts^ 



Paraiiieter/Port 


Units 

P 0 

Input power 

kw 

1,2, 3, 4 

Power request of output ports 

kw 

PS li,a.3,4 

Priority sequence (default « 1,2, 3, 4 ) 

kw 

P 1,2.3, 4 

Allocation weight (for equal priorities) 


MP 

Maximum Input power (default » PO) 

kw 

EF 

Input efficiency 


Qutouts 

Var1able/Port 

P 1,3, 3, 4 

Output power for port 1 

kw 

RE 0 

Output power request 

kw 

MP 1,2,3, 4 

Output maximum power based on MP 

kw 

Statistics 

SP 

Surplus power 

kw 


No cspltsl costs ^ssionoc) stnco this is an 

not a physical device. allocation component^ 



CALCULATION LOGIC 


• WT(k) ■ 1 ^ * 1,2, 3, 4 

• IF PS(k) = 0. RE(k) » 0 k - 1, 2,3,4 

• RE0»SRE(k) 


REO^ PO ? J 

w NO 

•INITIALIZE ALLOCATION LOGIC 

P(k) * I) k ■ 1, 2, 3, 4 
I = 1, PL > PO, MPA = MP 


• P(k) - RE(k) 

• PL - PQi:REO 
•GO TO ® 


y YES 
I>4 ? 


• SUM REQUESTS SR AND WEIGHTS 

MT FOR ALL PORTS WITH PRIORITY I 
MP(k) = MPA*F(k)/WT 
MPA = MAX(MPA-SR,0.) 


l-I+l 


^ REO^PO OR ^ 

C SR. = 

0 ? J 


NO 

C 

; PL ? 

1 

YES 


• FOR EACH PRIORITY I PORT* SET 

P{k) - RE(k) 

• UPDATE POWER AVAILABLE PL 

• GO TO (2) 


• GO TO FAIR SHARE 
ALLOCATION (3) 
(NEXT PAGE) 
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PD FAIR SHARE ALLOCATION 





EXIT 
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CPD 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE P0( 

1 PI, P2, P3, P4, 

2 RO , 

3 SP,PNI,PH2,PH3,PN4, 

4 PO, 

5 Rl, R2, R3, R4, 

6 PRl, PR2, PR3, PR4, 

7 Wl, W2, W3, W4, PM.EFI 

PURPOSE. MODEL POWER DIVIDER 



I > 
X*/ 


METHOD. PRIMARY FLOW ALLOGATION RESULTING FROM PRIORITY 
ASSIGNMENTS. SECONDARY FLOW ALLOCATION RESULTING 
FROM WEIGHT ASSIGNMENTS. 

THAT IS, TOTAL AVAILABLE POWER IS ALLOCATED 
ACCORDloNG TOs 

* PORT REQUESTS 

* PORT PRIORITY (HIGHEST PRIORITY = II 

* PORT WEIGHTS (IN CASE OF EQUAL PRIORTIES) 

ALLOCATION SCHEME. 

IS SUM OF ALL REQUESTS .LT. POWER AVAILABLE PO 
YES. 

FULFILL EACH REQUEST 
UPDATE POWER AVAILABLE 
EX IT 
NO. 

IS SUM OF ALL PRICRITY-I REQUESTS .LT. PO 
Y eS. 

FULFILL EACH PRIORITY-1 REQUEST 
UPDATE POWER AVAILABLE (TO PL) 

GO ON TO PRIORITY-2 REQUESTS 
NO. 

ALLOCATE FAIR SHARE TO EACH PRlORITY-1 PORT 
EXIT. 

IS SUM OF ALL PRIORITY-2 REQUESTS .LT. PL 


AND SO ON AND SO FORTH 


FORMAL ARGUMENT DEFINITION. 


PI , . . . , • 

RO : 

SP : 

PH1,...,PM4: 
PO s 
PM : 

EF : 

R 1 , . . . , R4 • 
PRI,..., PR4 
WI, ..., W4 : 


POWER ALLOCATIONS IN KW (OUTPUTS) 
TOTAL POWER REQUESTED (OUTPUT) 

SURPLUS POWER (OUTPUT) 

PORT MAXIMUM OUTPUT POWER IN KW 
TOTAL POWER INPUT IN KW (INPUT) 
MAXIMUM INPUT POWER IN KW (INPUT) 
INPUT EFFICIENCY (INPUT) 

PORT REQUESTS IN KW (INPUTS) 

: PORT PRIORITIES (INPUTS) 

PORT WEIGHTS ( INPUTS I 


(OUTPUT) 


COMMON STORAGE 
COMMON/ CIMPL / IMPL 


LOCAL VARIABLES 

P(K) IS THE POWER ALLOCATED TO PORT K 




, >■ 

* 
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fUX) IS THE POWEK REQUEST AT PORT K 
REAL R(^i 

PR(K) IS THE PRIORITY ASSIGNED TO PORT K 
REAL PR(4I 

HIK) IS THE WEIGH! ASSIGNED TO PORT K 
REAL W(4) 

SMil) IS THE SUM OF THE WEIGHTS ASSIGNED TO PRIORITY-I PORTS 
REAL SW(4) 


SR(n IS THE SUM OF THE REQUESTS AT PRIORITY-I PORTS 
REAL SR«4) 


FRU IS FAIR SHARE UNIT FOR PRIuRITY-I PORTS 

FR(K) IS THE COMPUTED FAIR SHARE ALLOCATION TO PORT K 
REAL FR(4) 

PL IS THE POWER LEFT AT EACH POINT IN THE ITERATION 
REAL PL 

IF IMPL IS ZEROt THEN ASSIGN DEFAULT VALUES 

IF (IMP! .GTi 0) GO TO 40 

R1 = 0.0 

R2 = 0-0 

R3 = 0.0 

R4 = 0.0 


IF 

(PRI .£Q. 

0.99999) 

PRI 

= 1.0 

IF 

( PR2 -EQ- 

0.99999) 

PR 2 

= 2.0 

IF 

IPR3 .EQ. 

0.99999) 

PR3 

= 3.0 

IF 

(PR4 .EQ. 

0.99999) 

PR 4 

= 4.0 


40 CONTINUE 

IF THE TOTAL POWER REQUESTED IS .LE. TOTAL POWER 
INPUT, THEN SATISFY REQUESTS, SET POWER SURPLUS 
EQUAL TO THE DIFFERENCE, 

IFCPRl.LE.O.OI RI=0.0 
IF(PR2.LE.0.0) R2=0-0 
IF(PR3.LE.0.0) R3=0.0 
IF(PR4-LE.0.0> R4=0-0 
RO = R1 + R2 ♦ R3 ♦ R4 
IF (RO .GT. P6) GO TO 80 
PI = RI 
P2 = R2 
P3 = R3 
P4 = R4 
PL = PO - RO 
GO TO 60 
80 CONTINUE 

PROCEED WITH ALLOCATION ALGORITHM SINCE THE SUM OF 
ALL REQUESTS EXCEEDS THE TOTAL AVAILABLE POWER PO 
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C 1N1T1ALI2AT1GII 

PL = PO 
PI - 0.0 
P2 = 0.0 
P3 = 0.0 
P4 = 0.0 
C 

60 PHA= PM 

IFCPM.EO. .99999) PMA=P0 

PU) = PI 

P(2) = P2 

P(3) P3 

P14) P4 

R(l) = lU 

RIZ) = 

R(J) - R3 
R(4) = RA 
PR(1) = PRl 
PR(2) = PR2 
PRO) = PR3 
PR 14) = PR4 
WU) Wl 
W(2) 

Wi3) = M3 
M(4) = W4 




ITERATE OH PRIORITY 1 FOR I = 1, 2, 3f 4 
DO 1000 I = 1, 4 
XI - I 

OBTAIN SUM OF REQUESTS FROM PORTS WITH PRIORITY I 

SR(I) = 0.0 

WT=0.0 

DO 100 K = I, 4 

IF (PR(K) .EQ. XI) SR(I) = SRi I) > RIK) 

IF(PR(K) .EQ. XI) WT= WT+ H(K) 

100 CONTINUE I 

I 

IF (PRl .EQ. XI) PM1= PMA*H1/MT 
IF( PR2.EQ. XI) PMZ= PMA+W2/MT 
IF4PR3 .EQ. XI) PM3= PMA«Mi/MT 
1F(PR4 .EQ. XI) PM4= PMA*W4/WT 
PMA- ANAXK PMA- SR(I)»0.) 

IF(PL-LE.O.)GO TO 1000 

IF NO PRIORITY-1 REQUESTS EXIST, THEN PROCEED WITH 
THE NEXT HIGHER PRIORITY 
IF (SR(I) .EQ. 0.0) GO TO 1000 
IF(RO.LE.PO) GO TO 1000 

IF THE SUM OF ALL PRIORITY-I REQUESTS .GT. POWER 
AVAILABLE, THEN GO AROUND 
IF iSR(I) .GT. PL) GO TO 400 

THE SUM OF ALL PRIORITY-I REQUESTS .LE. POWER 
AVAILABLE, SO FULFILL EACH PRIORITY-I REQUEST 
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00 2 00 K = 1, 4 
IF (PR(K) .EO. XI) P(K) = R(K) 
200 CONTINUE 



UPDATE POWER AVAILABLE 
PL = PL - SRU) 

CD TO 1000 

400 CONTINUE 

THE SUM OF THE PRIORITY-I REQUESTS EXCEEDS THE 
POWER available, SO COMPUTE AND ALLOCATE FAIR 
SHARE TO EACH PRIDRITY-I PORT 

600 CONTINUE 


SAVE ^>L FOR LATER REFERENCE 
POLO = PL 

DETERMINE FAIR SHARE UNITS FOR ALL PRIORITY-I 

PORTS FOR WHICH NO ALLOCATION HAS BEEN MADE 

SW(I) = 0.0 

DO 700 K = I, 4 

IF (P(K) ,NE. 0.0) GO TO 700 

IF (PR(K) .EQ. XI) SWCI) = SWI 1) + WCK) 

700 CDNTlNUc 

FRU = l.O / SWtl) 

FIRS), ALLOCATE FAIR SHARE TO PORTS FOR WHICH THE 

FAIR SHARE cXCEEDS THE REQUEST. CONSIDER ONLY PRIORITY-! 

PORTS, AND CONSIDER ONLY PORTS TO WHICH NO ALLOCATION 

HAS YET BEEN MADE 

DO 800 K = 1, 4 

IF (PiK) .NE. 0.0) GO TO 800 

IF (PR(K) .NE. XI) GO TO BOO 

COMPUTE FAIR SHARE 
FR(K) = (W(R) ♦ FRU) ♦ PL 

IF FAIR SHARE EXCEEDS REQUEST, THEN FULFILL REQUEST 
IF (FR(K) .GE. R(K)) P(K) = R(IU 

AND REDUCE AVAILABLE POWER 

IF CFRCK) .GE. RCK)) PL = PL - PIK) 

800 CONTINUE 

IF PL .NE. POLO, THEN PL WAS REDUCED DURING THE 
PROCESSING IN THE DO 800 LOOP ABOVE. THIS CHANGES 
THE FAIR SHARE COMPUTATION. IT IS THEREFORE 
NECESSARY 10 GO BACK THROUGH THE DO 800 LOOP IN 
ORDER TO RECONSIDER ANY PORT WHICH MAY NOW 
SATISFY THE REQUIREMENT THAT FR(K) .GE. R(K). ONLY 
PRIORITY-I PORTS FOR WHICH NO ALLOCATION HAS BEEN 
MADE ARE ELIGIBLE FOR RECONSIDERAT ION 
IF (PL .NE. FOLD) GO TO 600 

FINALLY, ALLOCATE POWER TO THOSE PORTS REQUESTING 
MORE THAN THEIR FAIR SHARE. CONSIDER ONLY 
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^ ALLOCATION HAS BEEN HADE 

IXJ 7 UU 1% •“ 1 f H 

IF (P(K) .Me. 0.0) GO TO 900 
IF (FRJiU .NE. XI) GO TO 900 
P(K) = FR(Kf 
900 CONTINUE 
PL = 0.0 
C 

1000 CONTIMUE 



FINALLY, ASSIGN OUTPUTS TO NON-SUBSCRIPTEO 
FORMAL PARAMETERS 
Pi = P(l) 

P2 = P(2) 

Pi = PC 3) 

P9 == P(4) 

IF(lMPL.GT.l) SP=PL 

R0=AMIN1(R0,PM)/EF 

RETURN 

ENti 
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7.32 PRIORITY INTERRUPT 




This component is used by the storage components to change priority of the 
power requests when minimum or maximum capacity is approached. 


Inputs 

Parameter/Port 
PS 1 

PS 3 

PMX 
INT 


Description 

Input priority for PS2 output (0 to 4) 

Input priority for PS4 output (default=PSl) 
Maximum priority for PS2 (default = 1) 
Interrupt flag (0,-l,l) 


Outputs 

Variable/Port 

PS 2 Output priority for charge cycle 

PS 4 Output priority for discharge cycle 

Equations 


PS2 

= PSl 

if 

tNT=0 

PS2 

= PMX 

if 

INT>0 

PS2 

= 0 

if 

INT<0 

PS4 

= PS3 

if 

1 — ( 
z 
—1 
lA 
o 

PS4 

= 0 

if 

INT>0 
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CPI 


SUbROUTINE PI(PS2,PS4,PSltPS3fPMXtINT) 

PURPOSL CHAMGE PRIORITY OF POWER ALLOCATIOH TO STORAGE COMPONENTS ^ 

WRITTEN BY A .W. WARREN VERSION It APRIL 14 19 

CALL SEQUENCE 

IfSZ - OUTPUT PRIORITY (0 TO 4) 

PS4 - OUTPUT PRIORITY (COMPLEMENT TO PS2» 

PSl “ INPUT PRIORITY FOR PS2 
PS3 - INPUT PRIORITY FOR PS4 
PHX ~ MAXIMUM PRIORITY FOR PS2 
INT - INTERRUPT FLAG 

0- NO INTERRUPT 

INCREASE ALLOCATION PRIORITY 
-*1= DECREASE ALLOCATION PRIORITY 

REAL INT 

COMMON /CIMPL/IMPL 
IF(IHPL.GT.O) GO TO 10 
IF1PS3.EQ. .99999) PS3=PS1 
IF (PMX.EQ.. 99999 )PMX~1. 

C 

10 PS2=PS1 
PS4=PS3 

IFdNT.GT.O. ) PS2=PMX 
iFdNT.LT.O. ) PS2=0. 

IFClNT.GT.b) PS4= 0. 

RETURN 

END 
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7.33 HYDRAULIC PUWP 


PU 


INPUT POWER (PI) 

MAX, INPUT POWER 
(MPl) 

INPUT EFFICIENCY 
(EFl) 



PU 










MAX. OUTPUT POWER (MP2) 
OUTPUT EFFICIENCY (EF2) 


The hydraulic pump model is based on a constant speed design. The pump is 
assumed to be designed to a nominal operating point and input power. For 
off-design performance the pump efficiency is assumed to be functionally 
related to the square root of the mass flow rate. 

Basic Equations 

The output mass flow rate Is based on the equations 

Pl^tEFF/(Cl*C2«fll) 

EFF = 1 - (l-EFD)->fSQRT(MD/M) 

where Cl, C2 are conversion constants 
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inputs 

Parameter/Port 

Descriotion 

Units 

P 1 

Input power 

kw 

H 1 

Height of water above Inlet 

ft 

EFD 

Pump efficiency at design pt. (D = 0.90) 

- 

ND 

R 

Mass flow rate at design pt. (D = ^10 ) 

gal/h 

EF 1 

Input product efficiency 

- 

MP 1 

Input maximum charging rate 

kw 

m 

Maximum al lowabi e mass flow rate (D = 3X10^) 

gal/h 

CK 

Pump capacity cost coeff icient^(D = 0.011) 


F0 

Pump exponent for cost calculations (D = 0.5) 

- 

Y 

P.9.tPMtg 

Variable/Port 

Pumphead exponent for cost calculations (0=0.25) 


M 

Output mass flow rate 

gal/h 

EFF 

Pump efficiency 

- 

CC0 

Pump cost /year 

$ 

EF 2 

Output product efficiency 

- 

CM 

Q. 

Maximum output power 

kw 

Statistics 

M2U 

Maximum output mass flow rate 

gal/h 


D - defaul t values 

^CK = capital cost (known unit )/ ( (MD*481.2)*5*F0*Hl * expected life time) 
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The calculation sequence and default values assume a constant speed hydraulic 
pump nominally rated for 120KW and located 200 ft. below a reservoir. The 
equations relating the various physical quantities and the cost estimates 
are based on first principles and the data presented In Reference 1 , and the 
cost estimates on Reference 2. 


Calculati on Sequence 

Cl = 0.377*10"® 

f t“ I b* 

C2 = 8.3398 lb/ gal 

1) Costs (first pass only) 

OC = CK*{*D»481.2)™«H1«IY 


Handbook", McGraw Hill, 

1958, Section 14, p. 19 , 

o, Mathoda .or Convert Ing Existing Power 
Plants to Pumped Storage Facilities", In ter national Pn • 

Inc., 1974 . Engineering Company, 
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Cfllculatlon Sequen ce Cont . 


2) Mass flow rafe and pump efficiency 

If Pi ^ 0^ set EFF =1/ M = 0 and go to 3) 
Solve the basic equations for M and EFF using: 

- XA + B = 0 

where 

A = Pi/ (C1^'(C2}«-H1) 

B = A-?Hl-EFD)-?{- 
M = X^ 

EFF = l-(l-EFD)-)f- V^/X 

3) Product efficiency and maximum charge rate 

EF2 = EF1^«€FF 

MP2 = MIN(MP1-5(EFF, iWW«Cl’5H:2^Hl ) 

41 Compute Statistics and Costs 
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CPU 


SUBROUT iNc 

1 


PU(M, BFF,CC,EF2,MP2,N2U,P1,HI,EF0.ND.EFI,MP1,MM 

fCK f FOf Y) 



PURPQSt PERFORMANCE OF HYDRAULIC PUMP 


METHOD 


COMPUTE PUMP FLOW RATES ASSUMING CONSTANT SPEED WITH 


EFFICIENCY A FUNCTION OF SQRTIFLOW RATE) 


WRITTEN 6F F, 0. MAHONY VERSION 1» MARCH 29 1977 

t ; 

CALL SEQUENCE 
I OUTPUTS 

M - OUTPUT MASS FLOW RATE, GAL/HR 
! EFF- PUMP EFFICIENCY 

CC - PUMP COST/ YEAR, S 

EF2 - OUTPUT PRODUCT EFFICIENCY 

MP2 - MAXIMUM OUTPUT CHARGE RATE, KW 

M2U - MAXIMUM OUTPUT MASS FLOW RATE, GAL/HR 


INPUTS 

PI 

HI 

EFO 

MO 

EFl 


INPUT POWER, KW 

HEIGHT OF WATER ABOVE INLET, FT 
PUMP EFFICIENCY AT DESIGN POINT 
MASS FLOW RATE AT DESIGN POINT, GAL/HR 
INPUT PRODUCT EFFICIENCY 


MPl - INPUT MAXIMUM CHARGING RATE, KW 

MM - MAXIMUM ALLOWABLE MASS FLOW RATE, GAL/HR 

CK - PUMP CAPACITY COST COEFFICIENT 

FO - PUMP EXPONENT FOR COST CALCULATIONS 

Y - PUMP HEAD EXPONENT FOR COST CALCULATIONS 


^ COMMON /CIMPL/IMPL /CTIME/TIME/CSIM0L/0UM( 7) , TMAX /COST/CCI 

REAL M,MP2,M2U,MD,MPI,MM 

kF(lMPL.GT.O)GO TO 100 
C 

TMAX1=TMAX*. 99999 

C 

Cl- 3.1441E-6 

C 

IFiEFD.EQ, -99999)EFD=0.9 
IFCMD .£Q. .99999IM0 =2.0£5 
IFIMPI.EO. .99999)MP1=1.E8 
IFIMM ,EQ. .99999)MM =3.0E5 
IFtCK .£Q. .99999ICK =0.011 
IF(FO .EQ. .99999)F0 =0.S 
IFiY .EQ. .99999 )Y =0.25 
CC =CK«(MD^4ai.2)**F0*Hl«>^Y 


M2U =0.0 
100 EFF= l.o 
M= 0.0 

IFtPl .LE. 0.0) GO TO 200 

SOLVE CUBIC EQUATION FOR M AND EFF 
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C 


A3=^ -P1/<C1*HI» 

A4 =-A3*(1.0-tFD)»SQRT(M0) 

C ! 

CALL CUBIC(A3,A4,ANS» 

IPCAMS.LE.O. ) GO TO k.00 

M =ANS**2 

LFF=1.0-U.O-EFD)*SORT(MD)/ANS 

PRODUCT EFFICIENCY AND CHARGE RATE 

200 EF2=EFl*EFF 

MP2=AMINI(MP1«EFF»MM*H14(CI) 

IF (INPL.LE.l) RETURN 

STATISTICS 

M2U=AMAXHM2U,M ) 

C 

1F(TIME.LT.TMAX1)RETURN 

C 

CCI=CC1+CC 

C 

RETURN 

END 
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7.34 SOLAR-PHOTOVOLTAIC ARRAY 



Cell Temperature (TC) 
Solar Insolation (ST) 
Input Terminal Voltage (VT) 



Cell Efficiency (EFl) 

Power Output (P) 

Power Tracker Efficiency (EF2) 


The photovoltaic cell is modeled by the circuit below. Power is delivered 
at terminal voltage V and is dependent on the cell temperature and insola- 
tion. Default for V is the maximum power point. A square array of solar 
cells is assumed with both parallel and series connections. 



BASIC SOLAR CELL MODEL 


Basic Equations 

Output current I as a function of terminal voltage V is given by the 
implicit relation 

I = IL + I0*(l-EXP((V-H*RS)*QBK/(T+273j)) (1) 

where 
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IL 

10 

T 

RS 

QBK 


= light current (amps) 

dfode reverse seturation current (amps) 
temperature (°C) 

to 

internal resistance (ohms) 




saturation current 10 is given by 


I0(T) = KD*A0*((T+273)**3)EXP(-EG0/(T+273)) 


( 2 ) 


where 

KD 

AO 

EGO 

Tables 

EFF 

I 

0P 

0V 


a device constant 

a material constant 

band gap at oVBoltzmann's constant 

Description 

Efficiency of maximum power tracker versus 
fractional load (default table provided) 

Optimum cell power versus Insolation and 
temperature (computed table) 

Optimum cell voltage versus insolation and 
temperature (computed table) 


Units 


kw 

volts 


■m V 

^ tr 
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Inputs/Port 

Description 

Units 

VT 

Array terminal voltage (default - maximum 
power voltage) 

volts 

TC 

Cell temperature 

°C 

TL* 

Low temperature value (default = 28) 

°C 

TH* 

High temperature value (default =120) 

°C 

TR 

Temperature range (default = TH) 

°C 

ST 

Collector solar insolation 

2 

w/m 

SL* 

/ 

Low insolation value (default = 1000) 

w/m^ 

SH* 

High insolation value (default = 25000) 

w/m^ 

SR 

Insolation range (default = SH) 

o 

w/m 

RC 

Concentration ratio (default = 25) 


AA 

Total illuminated cell area 
(default = .00015*NS*NP) 

m2 

NS 

Number of cells in series (default = 300) 


NP 

Number of cells in parallel (default = 500) 


11* 

Cell short circuit current at TL,SL 
(default = .06) 

Amps 

12* 

Cell short circuit current at TL,SH 
(default = 1.5) 

Amps 

13* 

Cell short circuit current at TH,SL 
(default = .06) 

Amps 

* 

These Inputs 
supplied. 

mv be ignored if ILl.DS.DT.OST.KD coefficients are 
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Inputs/Port 

(cont'd) Deslcr lotion 

Units 

14* 

Cell short circuit current at TH,SH 
(default = 1.56) 

Amps 

VI* 

( 

Cell open circuit voltage at TL,SL 
(default = .6) 

Volts 

RS 

Cell internal resistance (default = .055) 

Ohms 

AO 

Material constant (default = 1.54E33 for silicon) 


EGO 

Band-gap at O^K normalized by Boltzmann's 
constant (default = 1.4E4 for silicon) 

°K 

'“1 

1 Coefficients in bivariate expansion for the 

m^V’^ 

DS 1 

A 

^ light current IL. If not provided, they 

m^W^ 

or 

will be computed from the inputs 11,..., 14, 

1/°C 

DST ) 

■' 

m^/w°C 

KD 

Device constant, if not provided will be 
computed from 11, VI 

- 

CF 

Lens radiation transmission coefficient 


QBK 

Device constant (default = 1.161E4) 

°K/V 

RAP 

Rated power of maximum power point tracker 
(default computed) 

kw 

CC 

Capital cost/year/unit cell area 

$/m^ 

CM 

Maintenance cost/year 

% 


Note: Minimum input parameters to specify PV are cell area AA. number of 
cells in series NS and In parallel NP, concentration ratio RC, and rated 

power RAP. These parameters must be consistent with those for the 
collector model FO or FP. 


Jlled. “-l.DS.OT.DST.KD coefficients are sup 
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Output/Port Description 


V 

P 

I 

EFl 

EF2 

Statistics 


Array terminal voltage 

Array output power 

Array output current 

Solar cell efficiency 

Maximum power tracker efficiency 


PV 

Units 

Volts 

i 

kw 

Amps 


SP Sum of energy delivered 

Calculation Sequence 
First Pass 

1) Compute parameter KD {if not input) 

KD = I1/[a0*((TL+273)**3)*EXP(-EG0/(TL+273))*(EXP(QBK*V1/ 
(TL+273))-EXP(QBK*Il*RS/(TL+273)))] 

2) Compute coefficients IL1,DS,DT,DST (if not input) in the light 
current bivariate expansion in temperature T and insolation S: 

IL = IL1*S*(1+DS*(S-SL)+DT*(T-TL)+DST*(S-SL)*(T-TL)) 


Define 

FIL(I,T) = M0(T)*(l-EXP(QBK*I*RS/(T+273))). 

Then 

ILl = FIL (I1,TL)/SL 

DS = (FIL(I2,TL) - IL1*SH)/(IL1*SH*(SH-SL)) 

DT = (FIL(I3,TH) - IL1*SL)/(IL1*SL*(TH-TL) ) 

DST = (FIL(I4,TH) - IL1*SH-IL1*SH*0S*(SH-SL) 

- IL1*SH*DT*(TH-TL))/(IL1*SH*(SH-SL)*(TH-TL)). 
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PV 

3) If a terminal voltage VT is not input, calculate the optimal cell 
voltage V=0V(S,T) with S ranging through 10 values equally spaced 
between 0 and SR, and with T ranging through 10 values equally spaced 
between 0 and TR, resulting in a 10 x 10 matrix 0V(S,T), The calcula- 
tion is as follows; Given S and T, the open circuit voltage VOC is 
given by 

VOC = (T+273}*ALOG(1+IL/I0)/QBK, 
where IL and 10 are computed from (2) and (3). 

A binary search is performed in the range from 0 to VOC. For a value V 
in this range, Newton-Raphson iterations are used to solve for the 

terminal current I satisfying (1). The corresponding power P (in kw) 
is 


P = I*V/1000 . 


The iterative search process to maximize P is given by 

(i) Take the initial interval [VL,VH] to be [0,V0C]. 

(ii) Compute a numerical derivative of P at the midpoint VM of 

[VL,VH]: 

P' = (P(VM+lE-5)-P(VM))/lE-5 

(iii) If P' > 0, set VL = VM. 

If P' < 0, set VH = VM. . 
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PV 

(iv) IfVH-VL > 2 E- 5 and the number of iterations performed is 10, 
go to (ii). Otherwise P is maximized and 
0V(S,T) = VM 
0P(S,T) = P 

The 10 X 10 matrices 0V(S,T) (optimal cell voltage) and 0P(S,T) (maxi- 
mal cell power) are stored for use in subsequent passes. 

Subsequent Passes 

4) Compute insolation S at the cells 

S = ST*RC*CF 

5) If terminal voltage VT is not input, the cell terminal voltage V and 
power P are obtained by interpolation from the arrays 0V(S,T) and 
0P(S,T). (A diagnostic is printed if S > SR or TC >TR). 

6) If VT is used as an input voltage, then the cell voltage and power are 
determined using 

V = VT/NS 

I = IL(S,TC) + I0(TC)*(l-EXP(QBK*(V+I*RS)/(TC+273))) 

P = I*V/1000 

7) Array outputs prior to maximum power tracker; 

V = V*NS 

P = P*NS*NP 
I = P*1000/V 

EFl = Pn000/(S*AA) if S>0 

EF2 = 1. 
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8) If the maximum power tracker is used, 

EF2 = EFF(P/RAP) 

P * P*EF2 


REFERENCES FOR PV 

LLtolTd Program-SOLCEL.” Sandia 

'• tior>?o“gVt‘r”\a^ia® laLaVo*^^^ S’™'- 
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CPV 


c 

\ 

c 

t 

c 

e 

c 

d 

d 

d 

c 


c 

c 

c 

c 

c 
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c 

c 

c 
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c 

c 
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c 

c 

c 

c 

c 

d 

c 

d 

e 

c 

c 

c 

c 

c 

c 

c 

c 
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PV 


Z „ 

WRITrtN &Y Y.K.CHAN, 10-21-78, VERSION 1 

POWER IS COMPUTED AT QPTIMAL^un/?*- J 
FOR A RANGE OF 10 VAlS^I 

values of lNSOLi?i^i'-W tSe «Rsf^Iss^ 

AT SUBSEOUEMT PASSES? 

interpolation is used. 


CALL SfcQUENCL 

tables 

EFF 


OP 


OV 


OUTPUTS 

V 

P 

I 

£F1 
EF 2 


VrER^CTIONA^ LO^rcSEFAULT TABLE^ 

"•S-^^AT10N.W/M2. AND 

"?Ej^ERiTi^E?r"' VOLTAGE.V. vs INS0LATI0N.N/M2. AND 


-ARRAY TERMINAL VOLTAGE, VOLTS 
-array OUTPUT POWER, KW 
-ARRAY OUTPUT CURRfcNT,AMPS 
-SOLAR CELL EFFICIENCY 

SlATISTiCr*"'^'' TR*«ER efficiency 

SP -SUM OF ENERGY DELIVERED, KWH 


INPUTS 

VT 

TC 

TL 

TH 

TR 

ST 

SL 

SH 

SR 

RC 

AA 

NS 

HP 

11 

12 

13 

14 
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po 2 er*JoJta 2 e?*" ' oe^ault-maximum 

-CELL tempera TUR£,C 

VALUE.C, (DEFAULT-28 1 
ircun* TLMPERATURE VALUE, C, (DEFAULT- 1201 

SOLAR INSOLATION, W/M 2 

-HIGH ?N?m 

-INSQlI??P1; VALUE,W/M2,(OEFAULT^25000} 

INS0LA1 lON RANGE, W/M2, ( DEFAULT=SH 1 
-CONCENTRATION RATIO( oefaULT^zL 

-NUMBF»‘^nP‘'PPPPc AR£A,M2,(DEFAULT=2.5£-3) 
nl S£RleS(0eFAULT=300| 

I''‘f*ARALLEL(DEFAULT=500J 

f0EFA^L?=y06f AN-S 

TL,SH, amps 

7SEFiuLT?^o\“^‘^"" amps 

-CELL SHORT CIRCUIT CURRENT AT TH,SH, AMPS 
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> r. n o o 


c 

d 

c 

Ci 

c 

c 

c 

c 

c 

c; 

C: 

c 

C' 

c ‘ 
c 

L 

c 

c 

c 

c 


c 

c 

c 


12 

11 


Vi 


(DEFAULT=1.56) 

“eSISTANCE, 0HNS,(DEFAUL1=.0551 

1L1,0S,DT.DST ^ SILICON) 

expansion for the 

KeSPE^IVECr 

"^pSeo°frJS\'I.J^ provided, it nill be 

OF IC A^o •=“« TH^ rJnI^'‘“ 

CAPITAL COST/YEAR/UNIT CELL AREA 4/M5 

-maintenance cost/year, » ’ 


KD 

Q6K 

CF 

RAP 


cc 

CM 


OINENsIoN’EFHJuEFFlutiJopIuJaia?’*"’^ 

common /CIMPL/IHPL.ICNT.ITKT ' 

k(S,T)==lLl»S»(lr+DS»rs-SU+OT*(T^Tl’lJ^U*f’*‘’^’’^®'**’^®’-’‘' 

« ' J r ? r ?“? ' <1 »«3 ) •£XP?lE^;lT"i:?in « S-SL ) .. T-T L I . 

SP=0. 

TMAX1=TMAX*« 99999 

TINC1=DUMC7)*0.5 


l«iITlALI2ATIOJ« 

1F( EFF(2) .M£.1.,99999|^q 

L-FF( 21 = 7 

DO 12 11=4,17 

EFFCI£)=£FF1(II-3) 

CONTINUE 

0PI2)=10. 

0PI3|=10. 

CV(2)=10. 

0V(3)=10. 

IFCtL.EQ.. 99999 )TL=28 
IF CTHnEQ.. 99999 )TH=120 
IFITRnEQ.. 99999) TR=TH 
IF(SL.£Q., 99999 )SL=1000 
IF(SH.ta..99999ISH=25000 
IF4SR. EQ.. 99999 )SR=SH 
IF(RC.£Q..99999)RC=25 
1F(NS-E0..99999ING=300 

IFImP.EQ.. 99999 ||^p_3QQ 


TO 11 




■ ■ ' 4 ‘ ■ 
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IP( AA.tQ..99999)AA=1.5b-4*NS«NP 

IF4I1.£Q..99999)II=.06 

IF(l2.EQ..99999)Ii:=l.3 

IF (1 3. EQ.. 99999)13=. 06 

IFC 14. EC.. 99999) 14=1.36 

IF( Vi. £Q.. 99999 )V1=.0 

1F(RS.EQ.. 99999 )RS=. 055 

lFiAG.£Q..99999)A0=l.54E33 

IF ( EGO. EQ.. 99999) £G0=1.4c4 

IF (ObK.EQ.. 99999 )CBK=1.161E4 

iF( KD. EC.. 99999 )K0=I1/ ( A0*( (TL+273)*^3 ):^£XP {-EGO/ 

1 CTL+273) )*( EXP {C6K^V1/(TL 4-273))- 

2 £XP;(Q&K*I1*RS/ITL4^Z73)))) 

IF( 1L1.£C..99999)IL1=FIL(II,TL)/SL 

iFCDS.EQ..99999)[)S=(FlLC I2,TL)-1L1*SH)/(IL1*SH*( 3H-SL) ) 
IF(D1.E0..99999)0T=(FIL(I3,TH)-IL1*SL)/(IL1»SL^(TH-TL)) 
IF(DST.EC..99999)0ST=(FIL(I4,TH)-IL1*SH- 

1 ILl*SH*DS*lSH-SL)-lLl*SH*OT*iTH-TL) )/ 

2 { IL1*SH^(SH-SL)»(TK-TL) ) 



CALLULATE OPTIMAL POWER OP AND CELL VOLTAGE 

IF TERMINAL VOLTAGE IS NOT INPUT 

1F{VT.N£..99999)G0 TO 100 
S=0. 

DO 33 J=lylG 
J0=J■^3 

0P( J0)=( J-i)*TR/9. 

33 OVC JO)=OP(JC) 

DO 3 K=l,10 
T=0. 

DO 4 J=l,10 
A1L=1L(S,T) 

6I0=i0CT) 

V0C=(T+273)*AL0&( 1.^A1L/B10)/QBR 
VL=0. 

VH=VOC 


BINARY SEARCH FOR MAX POWER POINT 

DO 5 M=l,10 
VM=( VL+VH)*.5 
VME=VM+l.E-5 

IM=AINR(AlLtB10»Q3KfVMfRSf T) 

PM=IM*VM 

IME=AINR(AIL,BIO,QBK,VMEtRS#T) 

PME=1ME*VM£ 

PMP=PM£-PM 

IF(PMP.GE.0.)VL=VM 

IFCPMP.LT.O.)VH=VH 

IF(C VH-VL).LE.2.E-5)G0 TO 6 

5 CONTINUE 

6 CONI INUE 
IKJ=13+K+J*10 
OVCIKJ)=VM 
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OP(1KJ)=PM/1000. 

T=T+TR/9. 

4 CONTlNUfc 
1KJ0=13+K 
OP(lKJO)=S 
OV(IKJO)=S 
S=S+SR/9. 

3 CQNITINUE 
C 

I F ( RAP . LQ . . 99999 ) RAP =OP ( 33 ) ♦WS^^NP 
C WR1TE16.101HCPUK),IK=24,123) 

C WRITE(6,101M0V(I<>,IH=2^,i23) 

C 101 FORMAT ( 1H0.3HPV »/ 1 ( i*X , 10E10.2 ) I 
C 

100 CONTINUE 
C 

C COMPUTE INSOLATION AT THE CELLS 

C 

S=ST*RC*CF 

C 

C COMPUTE CELL VOLTAGE AND POWER 

IF(VT.NE..99999)G0 TO 900 
IF(IMPL.NE.2)G0 TO G09 

IF ( ( S «&T • SR ) • OR • (TCaol • TR ) ) WRI T E ( G f 8 03 ) 

$03 FORMAT! lH0f62HPV WARNING INSOLATION OR TEMPERATURE AT 
ID RANGE ) 

1F( ( S.GT -SR) .OR. (TC.GT.TR) ) ICNT=ICNT<^1 
809 CONTINUE 

V=TBLU2iStTCtOV(14)tOV(4),OV(24) tit It 10 1 10, 10 1 10 ) 
P=TBLU2( S,TC,OP! l^), OP (4), OP (24) ,1,1,10,10,10, 10 ) 

GO TO 901 

900 CONTINUE 
V=V1 /NS 
AIL=IL(S,TC) 

BIO-IOiTC) 

I=AINR( AIL,B10,QBK,V,RS,TC) 

P=I*V/1000. 

901 continue 

c 

C COMPUTE ARRAY VOLTAGE AND POWER 

C 

V=V*NS 

P-P*NS*NP 

1 = 0 . 

IF(V.GT-O-) I=P*1000./V 
£F1=1. 

EF2=I. 

IFCS.GT-0-)EFl=P*1000/iS*AA) 

1F(VT.N£. .99999) GO TO 904 

PRAT=P/RAP 

NEF=EFF(2) 

£F2=TBLU1(PRAT,£FF(4),EFFC4+NEF),1,-NEF) 

P=P*EF2 
904 CONTINUE 

IFdMPL.LE.DRETURN 

SP=SP+P*TINC1 

IF ( T IME. LT.TMAX 1 ) RETURN 

CCAP=CCAP+CC*AA 




CELL EXCEE 
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CMA=CMA+CM 

RETURN 

END 
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7.35 AC-DC RECTIFIER 




AC POWER (PI) 

INPUT MAX. POWER 
(MPl) 



DC POWER (P2) 

OUTPUT EFFICIENCY (EF2) 
OUTPUT MAX. POWER (MP2) 


This component models a solid-state rectlfi«r/f 
to resistive hasting an<t contact potent 

values determining power losses are b rt parameter 

y power losses are based on 200 kw rated power. 



figure 7.3SI RECTIFIER FUNCTIONAL Diagram' 


•4T' , 


316 


BCS 40262-1 






Inputs* 

Parameter/Port 

Description 

Units 

P 

1 

AC input power 

kw 

RT 


Transformer resistance (D = 0) 

ohms 

XT 


Transformer reactance (D = 0.03) 

ohms 

VAC 


Rated AC voltage (D = 440) 

volts 

DR 


Rectifier contact potential (D = 0) 

volts 

RR 


Rectifier resistance (D = 0.02) 

ohms 

RAP 


Rated input power 

kw 

EF 

1 

Input product efficiency 

- 

MP 

1 

Maximum input power (D = 1.x 10^) 

kw 

CC 


Rectifier cost/year 

$ 


Outputs 



Variable/Port 



P 2 

DC output power 

kw 

lAC 

AC input current 

amps 

PL 

Power loss 

kw 

EF 2 

Output product efficiency 

- 

MP 2 

Maximum output power 

kw 


* Minimum input parameters to specify RE are: 

RR = rectifier resistance, 

RAP = rated input power. 


RR may be used as an adjustment parameter to obtain a specified efficiency at 
rated power. 


D - Default values supplied. 
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Calculation Segu^ni^P 

1) Compute transformer 


power angles 




Y = SlN(e) = V3*XT^tPl*1000/VAC^ 


ABS(Y)>1 CC> DIAGNOSTIC 


2) Input and output current 


If PI < 0 set P2 = lAC = PL = o., EFF = 1 and go to 41 

lAC = VAC V2-2COS(0) / ( V1*XT) 

” = VAC V 2 - 2 * V/FY^ / ( V^XT) 

IDC = TT-5HAC / 

3) Power loss and output power 

PL = ( V3^T-5f-lAC^ + lDC-5«-(DR+lDC-?fRR) )/1000 
P2 = Pi - PL 
EFF = P2/P1 

P2 < 0 C|> DIAGNOSTIC, EFF = 1 

4) Efficiency and maximum power 

EF2 = EFl-JfEFF 

AAP2 = MIN(MPl,RAP)^fEFF 

5) Compute Costs 

■“I 
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CRE 




SUBROUTINE REIP2,1AC. PL, EF2,MP2,P1,RT,XT,VAC, DR, RR, RAP, EF1,MP1,CC) 

i PURPOSE SOLID STATE RECTIFI ER/TRANSFORMER MODEL 


METHOD 


COMPUTE OUTPUT DC POWER AS A FUNCTION 
OF INPUT AC POWER 


WRITTEN BY y.K.CHAN VERSION 1, JUNE i, 1977 

CALL SEQUENCE 
I OUTPUTS 

P2 -DC OUTPUT POWER, KW 
lAC -AC INPUT CURRENT, AMPS 
PL -POWER LOSS, KW 
EF2 -OUTPUT PRODUCT EFFICIENCY 
MP2 -MAXIMUM OUTPUT POWER, KW 
INPUTS 

PI -AC Input power, kw 

"TRANShORMWR RESISTANCE, OHMS 
XT -TRANSFORMER REACTANCE, OHMS 
VAC -RATED AC VOLTAGE, VOLTS 
DR -RECTIFIER CONTACT POTENTIAL, VOLTS 
RR -RECTIFIER RESISTANCE, OHMS 
RAP -RATED INPUT POWER, KW 
EFl -input product EFFICIENCY 
MPl -MAXIMUM INPUT POWER, KW 
CC -RtCTlFIEK COST/YEAR, $ 

DATA PI/3. 14159/ 

DATA ROOT3/1. 73205/ 


C 

C 

C 


C 

C 

C 


IFIIMPL.GT.O) GO TO lOC 
IF(MP1.EQ..99999)MP1=1.E8 
IF(RT. EQ.. 99999 ) RT=0. 
IF(XT.£Q.. 99999) XT=.03 
IFiVAC.Ea.. 99999) VAC=440. 
IF(DR.£Q,. 99999} DR=0. 

1F(RR.EQ. .99999) RR=,02 

TMAX l=1MAX’t^.99999 


COMPUTE TRANSFORMER POWER ANGLES 


100 V=R00T3^XT*P1*1000./(VAC*VAC) 

YY=Y*Y 

IFCYY.LE.l. )GQ TO 200 
IF( IMPL.EQ.2)WRITE(6, lOS )P1,XT ,VAC 
108 FORMAT! 1H0,19HRE, AC INPUT POWER , F12 3 . 49 H Tnn i Aaru tk, 

zoo YY=AMINICI-,YY) 


relation TO 

,F12.3) 


INPUT AND OUTPUT CURRENT 

IFCPl.GT.O. )G0 TO 300 
P2=0. 
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non 


C 


IAC=G. 

PL=0. 

EFF=1. 

GO TO 400 



POWER LOSS AMO OUTPUT POWER 

EFF=P2/P1 

iF(P2*iaTs0a) (jO iq 400 

IF{lMPL.EQ.2)WKITE(6,30a)PL.Pl 
308 F0RMAT( lHO,ilHPOWER LOSS ,F12 3 23HRF 

156H LHECK RATEO AC VOLTAGE ***^^^^ vFLZ.3, 

IF(IMPL.EQ.2)1CNT=ICM1+1 ^ transformer REACTANCE XT ) 
P2=0. 

£FF=1. 


i^FFICIENCY AND MAXIMUM POWER 

400 EF2=EF1*EFF 

MP2=AMIM1CMP1,RAP) 

MP2=MP2*EFF 
IF(lMPL.LE.l) RETURN 
IF( TIME. LT.TMAXU RETURN 
CCI=CCI+CC 

RETURN 

END 
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7.36 RANDOM NUMBERS 


RANDOM NUMBERS 


This component generates an uncorrelated sequence of normally distributed 
random numbers with a specified mean and standard deviation. 


MhAN — 

STANDARD DEVIATION 



Inputs 

Parameter/Port 

MN 


SiG 

NST^ 


Outputs 

Variable/Port 

F0 


OescriotlQn 

Mean value of sequence 
Standard deviation of sequence 
Start parameter. (Use any odd integer 
greater than 1). Default supplied. 


Random number output 


If RESET parameter >0 then succeeding simulations use NST to start random 
sequence. 
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o o o n o o n 


CRN 

C 

C 

c 

c 

i. 




subroutine RN(U,AX,SIG,AHN) 
version 2, BPv/Tccn 

CALL^SEoJ^Ncf ^ FORMALLY aiSTRiai?£5’RlNOOM NUMBER 

U — RANDOM NUMBER OUTPUT 

CONTROLS TH£ BtSlNNINS POINT 


uESl&NED BY ROGER «. CALL 

COMMON /CIMPL/1MPL,ICNT,ITEST 
DATA Y /2S396T./,AXQ/0./ 

IF( IMPL.Cr.C IGO TO 5 

IFC AX. EQ.. 99999) AX=431469. 

IFCAXO.EC.O. )AXO=AX 

I F ( 1 1 EST . EQ . X ) AX — AXO 

X =AX 

SUM=0. 


1 1 = 1,12 

X= AM0DiX*Y,16777-t:i6.) 

SUM= SUM+ X/I6777215. 

1 AX= X 

U=l SUM-6. G)*SIG+ANN 

RETURN 

END 


SEPT 1976 



. V 
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7.37 SATURATION FUNCTION 



Inputs 




Paramet§r/Port Description 

FIN 

Input quantity 



Cl 

Slope 0 < F 1 N < C3 


C2 

Slope F 1 N > C3 



C3 

Positive saturation 

intercept 

C4 

Slope 0>FIN>C6 


C5 

S 1 ope F 1 N < C6 



C6 

Negative saturation 

intercept 

Outputs 




Variable/Port 



F0 

Output quantity 



Calculation Seauence 




F0 = Cl-5«:3 + C2^t(FlN-C3) 

if 

FIN >C3 


F0 = Cl-5tFlN 

if 

0<FIN <C3 


F0 t C4-»FIN 

if 

0 >FIN>C6 


F0 = C4t«C6 + C5*(FIN-C6) 

if 

FIN <C6 


BCS 40262-1 


323 




100000000 00 0000000 0 0 0 00 0 o 


.*» Mti 


SA 

SUBROUTINE SACF0,FIN,Ci*C2,C3,C4 ,C5,C6» 

PURPOSE - TO SIMULATE SATURATION 


METHCiO ” SEE COOIN&. C3 ANO C6 ARE VALUES OF THE INPUT AT WHICH 
SATURATION OCCURS. C3 IS GREATER THAN C6. THE ROUTINE 
CAN SIMULATE A CHANGE OF SLOPE AT THE ORIGIN (C1.NE.C4) 
PROVIDED C6 IS LESS THAN ZERO. SIMILARLY THE SLOPES 
IN THE SATURATION REGION CC2 ANO C5ICAN DIFFER- 
THE SLOPES CAN BE POSITIVE OR NEGA1IVE 


WRITTEN BY - ADAM LLOYO LATEST REVISION - NOV 75 

LIMITATIONS - USE OF ZERO SLOPES (C2=0 OR C5=0) IN THE SATURATION 
REGION SHOULD BE AVOlOcO. IT IS DESIRABLE THAT THE 
SLOPE RATIOS C1/C2 ANO C4/C5 SHOULD NOT tXCEEO 100. 
EXCESSIVE SLOPE RATIOS MAY RESULT IN VERY SLOW 
CONVERGENCE 



C 

C 

C 

c 

c 

c 

c 


INPUT/QUTPUT LIST 


FO 

OUTPUT VARIABLE 


FIN 

INPUT VARIABLE 


Cl 

SLOPE 

) 

C2 

SATURATION SLOPE 

) 

CS 

saturation INTERCEPT) 

C4 

SLOPE 

) 

C5 

SATURATION SLOPE 

) 

C6 

SATURATION INTERCEPT) 



ANY 1 

OUTPUT 

VAR 


ANY 

INPUT 

VAR 

FIRST 

ANY 

INPUT 

PARAM 

SLOPE 

ANY 

INPUT 

PARAM 


ANY 

INPUT 

PARAM 

SECOND 

ANY 

INPUT 

PARAM 

SLOPE 

ANY 

INPUT 

PARAM 


ANY 

INPUT 

PARAM 


IFIFIN-GT.C3)G0 TO 10 
IFCFIN.LT.C6)GC TO 2C 
IF(FIN.LT.O.)GO to 30 
F0=C1^FIN 
GO TO 100 

C POSITIVE SATURATION 
10 FO=CI*C3-^C2*lFIN-C3) 
GO TO 100 

C NEGATIVE SATURATION 
20 F0=C4*C6+C5*{FIN-CS) 

GO TO 100 

C NEGATIVE UNSATURATED 
30 F0=C4»FIIi 
100 RETURN 
END 
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7.38 SOLAR ORIENTATION 

Da^y-of-Year (DY) 

Time-of-Day (TO) 

Direct Beam 
Insolation (SB)' 

Global Insolation (ST)- 

The Solar Orientation model computes flat plate collector insolation for 
five types of solar tracking: 

t Tilted orientation, facing south 

• Tracking about a horizontal EW axis 

• Tracking about a horizontal NS axis 

• Tilted, tracking about a vertical axis 

• Two axis tracking 

Array insolation is the sum of beam and diffuse components. The beam 
component is the product of normal incidence radiation and a geometry- 
dependent incidence factor. The diffuse component is approximated as the 
product of horizontal diffuse insolation times a geometry factor plus 
ground reflectance. 
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so 

BASIC EQUATIONS 

STl = SBl + SDl + SRI 

= SB*IF + SD*RD + ST*RR 
SO = ST - SB*SIN(EL) 

RD = .5*(1 + COS{TLT)) 

RR = .5*PR*{1 - COS(TLT)), 

where 

IF = solar incidence factor (incidence angle cosine) 

TLT = collector tilt angle from horizontal 
PR = ground reflectance 


Inputs/Port 

Description 

Units 

LA 

Collector latitude* 

Deg 

DY 

Day-of-the-year (1-365) 


TD 

Time-of-day (0-24) 

hr 

M0 

Tracking mode 

.. 


1 = fixed orientation and tilt (default) 

2 = horizontal EW axis tracking 

3 = horizontal NS axis tracking 

4 = tilted, vertical axis tracking 

5 = two axis tracking 


TL 

Collector tilt (M0 = 1, 4 inputs) 

Deg 

SB 

Direct normal beam insolation 

p 

w/m 

ST 

Global insolation on a horizontal surface 

9 

w/m 

PR 

Ground reflectance (default = 0.2) 



* 

For TMY stations, see Table 7.8 of the Environmental Data Component ED. 
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Inputs/Port 
(cont 'd) 

Description 

Units 

AA 

Collector array area 

m2 

SBT 

Insolation threshold for tracking 
(default = 100.) 

w/m 

Oulputs/Port 

Descriotion 

Units 

SE 

SIN (Solar Elevation Angle)* 

- 

SA 

SIN (Solar Azimuth Angle)* 

- 

IF 

COS (Solar Incidence Angle) 


RE 1 

Tracking power required 

kw 

SB 1 

Collector beam insolation 

p 

w/m 

SD 1 

Collector diffuse insolation 

p 

w/m 

SR 1 

Collector reflected insolation 

i p 

w/m 

ST 1 

Collector total insolation 

p 

w/m 

TLT 

Collector tilt angle 

Deg 



Solar Orientation Vector 
Solar Elevation Angle 
Solar Azimuth Angle 


* FIGURE 7.38 SOLAR ORIENTATION ANGLES 
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CALCULATION SEQUENCE 




RPD = n-/180 
If SB^O and M0>1 r6turn 

1) Solar azimuth and elevation 

W = 15* (12 - TD)*RPD 

6 = 23.45*SIN(27T *(284 + DY)/365)*RPD 
LA' = LA*RPD 


SE = SIN 6 *SIN LA' + COS 6 *COS W*C0S LA' 

CE = (1. - SE*SE)^/^ 

TAN(AZ) = cos 6 *SIN W/(COS W*SIN LA'*COS i - SIN 4 *C0S LA') 
CA = 1/(1 + TAN^(AZ))^/^ 

SA = TAN(AZ)*CA 

2) Horizontal diffuse insolation 
SO = ST - SB*SE 


3) Array geometry and tracking power 
REl - 0 
If M0 = 1 then 

TLT' = TL*RPD 

IF = SIN TLT'*CE*CA + COS TLT'*SE 
If M0 = 2 then 

IF = Vl. - (CE*SA)^ 

TLT* = MIN(COS"^(SE/IF), tt/2) 

REl =3.75 E-4*AA 


if SB>SBT 
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CALCULATIONS (contd) 

If M0 = 3 then 

IF = Vl. - (CE^CA)^' 

TLT' = MIN(COS"^(SE/IF). tt/2) 
REl =3.75 E-4*AA 
If M0 = 4 then 

TLT' = TL*RPD 

IF = SIN TLT'*CE + COS TLT'*SE 
REl = 3.75 E-4*AA 
If M0 = 5 then 

IF = 1 

TLT' = MIN(C0S"^{SE), tt/2) 

REl = 5.E-4*AA 

4) Insolation components 

SBl = SB^^IF 

SDl = SD*.5^(1 + COS(TLT' )) 

SRI = ST*.5W(1 - COS(TLT')) 
STl = SBl + SDl -f SRI 

5) Tilt 

TLT = TLT'/RPD 


if SB >SBT 


if SB>SBT 


if SB >SBT 
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CSD 


so 

SUBROUTINE S0(SE,SA,IF,RE1,SB1,SD1,SR1,STI,TLT, 

I LA«OY,TOtMOtlLtSB,ST,PR,AA,SBT) 

PURPOSE THIS COMPONENT COMPUTES FLAT PLATE COLLECTOR 
INSOLATION FDR FIVE MODES OF SOLAR TRACKING 
TILTED ORIENTATION, FACING SOUTH 
TRACKING ABOUT A HORIZONTAL EW AXIS 
TRACKING ABOUT A HORIZONTAL NS AXIS 
TILTED, TRACKING ABOUT THE VERTICAL AXIS 
TWO AXIS TRACKING 

WRITTEN BY Y-K-CHAN, Ii-6~78, VERSION i 

METHOD ARRAY INSOLATION IS SUM OF BEAM AND DIFFUSE 

COMPONENTS. THE BEAM COMPONENT IS THE PRODUCT OF 
NORMAL INCIDENCE INSOLATION AND A GEOMETRY DEPENDENT 
INCIDENCE FACTOR. THE DIFFUSE COMPONENT IS 
APPROXIMATED AS THE PRODUCT OF HORIZONTAL DIFFUSE 
INSOLATION TIMES A GEOMETRY FACTOR PLUS GROUND REFLECTANCE.! 

I 

CALLING SEQUENCE 
^ OUTPUTS 

SE -SINE OF SOLAR ELEVATION ANGLE 
SA -SINE OF SOLAR AZIMUTH ANGLE 
IF -COSINE OF SOLAR INCIDENCE ANGLE 
REl -TRACKING POWER REQUIRED, KW 
SB! -COLLECTOR BEAM INSOLATION, W/M2 
SDl -COLLECTOR DIFFUSE INSOLATION ,W/M2 
SRI -COLLECTOR REFLECTED INS0LATI0N,W/M2 
STl -COLLECTOR TOTAL INSOLATION ,W/M2 
TLT -COLLECTOR TILE ANGLE, DEGREES 
INPUTS 

LA -COLLECTOR LATITUDE, DEGREES 
DY -DAY OF YEAR (1-365) 

TD -TIME OF DAY ( 0-24 ) ,H OUR 
MO- -TRACKING MODE 

INFIXED ORIENTATION AND TILT (DEFAULT) 

2=HQRIZ0NTAL EW AXIS TRACKING 
3=H0RIZ0NTAL NS AXIS TRACKING 
4=TILTE0, VERTICAL AXIS TRACKING 
I 5=TW0 AXIS TRACK IGN 

TL -COLLECTOR TILT (M0=I,4 INPUTS ), DEGREES 
SB -DIRECT NORMAL BEAM INSOLATION ,W/M2 
ST -GLOBAL INSOLATION ON A HORIZONTAL SURFACE, W/M2 
Pk -GROUND REFLECTANCE (0EFAULT=0.2) 

AA -COLLECTOR ARRAY ARE A, M2 
SBT -INSOLATION THRESHOLD FOR TRACKING, W/M2 
(DEFAULTS 100) 

COMMON /CIMPL/IMPL 
REAL IF, LA, MO 
1F(IMPL.NE.0)G0 TO iOO 
IFCMO.EQ.. 99999 )M0=1. 

IF(PR.EQ..99999)PR=.2 
IF( SBT. EQ.. 99999 )SBTslOO 
RP0=3. 1415926/IBO, 

100 CONTINUE 
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O O O ODD 


• "S ■ 


C 

C 


IF=oI 

RE1=0. 

sai=o. 

SDi=0, 

SR1=0- 

STI=0. 

return 

i09 CONTINUE 
RE1=0. 

SOLAR AZIMUTH AND ELEVATION 
W=15 .♦! 12,-T0)*RPD 

PLA=U*RPr^"*' •°”21A2*(28A*0YI )*RPD 
CLAP=COS(PLA| 

SAOEL=SlNCAOEL) 

CADEL=COS(AD£l) 

SINPLA=SIN(PLA> 

COSW=CQS(W) 

^^“^AD£L*SINPLA-»-CA0EL*C0SW*CLAP 

CE=SQRT ( l.-SE*SE) 

f=^cadel*cosw*sinpla-sadel^clap 

CA —0 • 

SA=1. 

IFtABSiF) ,LE.1.E~5 IGO TO 200 
TAZ=CAD£L*SIN(M|/F 
CA=l./SQRT( 1.+TAZ*TAZ) 

SA=TAZ*CA 
200 CONTINUE 

HORIZONTAL DIFFUSE INSOLATION 
SD^ST-SB^SE 


array geomeiry and tracking power 


IM0=M0+.l 

302 IF=SQRT(1.-CE+CE*SA*SA) 
aiF=AMlNl(l.,SE/IF) 
TLTP=1.570B 


IF(B1F.GT«0« )TLTP=AC0SI3] 
IF(SB.GT.SBT)RE1=3.75E-4:( 

GO TO 309 


303 IF=S0RT(I.-CE*CE*CA^CA) 
aiF=AMlNl( l.,SE/IF) 
TLTP=1.5708 



304 


1F( BIF.GT.O. )TLTP=ACQSCBIF) 
IF! SB.GT.SBT )RE1=3«75E~4*AA 
GO TO 309 

tltp=tl*rpd 

lF=SINtTLTP )♦CE^^C0S(TLTP)♦SE 


SO 
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non non 


lF(SB.GT.SBT)REl=3.7i>£-4*AA 

GO TO 309 
305 IF=l. 

SE1=AMIN1(S£,1.| 

lLTP=1.370a 

IFCSfcl.GT.O. )TLTP=AC0S(SEU 
IF(SB.GT.S8T)RE1=5.E~4*AA 

309 CONTIHUE 

IWSOLATIQN COMPONENTS 
SB1=SB4IF 

SD1=SD* . 5* ( 1 . +C0S4 TLTP ) ) 
SR1=ST*.5^PR=»C1.-C0SITLTP) ) 
STl=S31+SDl-»-SRl 

TILT 

TLT=TLTP/RPD 

return 

END 
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7.39 SINGLE POLE SWITCH 


VA1 


V01 

VB1 

... 




— “O 




VB1 


VB1 

• 

VBt 

VOl 

VA1 


VA1 V01 


VA1 



1 1 ! 


1 1 

1 


! I I L_ 

TCI TIME TC2 TCI TIME TC2 

SW1=1 SW1=0 


THE SWITCHING OPERATION MAY BE CONTROLLED BY EITHER 
TIME OR THE INPUT PARAMETER SW1. THE TIME DEPENDENCE 
MAY BE ELIMINATED BY SETTING TCl = lO^S 


Inouts 


Parameter/Port 

Description 

VAl 

Input to switch 

VBl 

Input to swi tch 

SWl 

Switch control parameter 

TCI 

Time for first switching (hours) 

TC2 

Time for second switching (hours) 

OutDUts 


Variable/Port 


V01 

Switch output 


Calculation Sequence 


If 

SWl = 0 then 

/VAI 

TCI < TIME 

< TC2 


V01 = 1 

\VB1 

otherwise 


If 

SWl = 1 then 

^VBl 

TCI < TIME 

< TC2 


V01 = j 

VVAl 

otherwise 
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CSM 

SUBROUTINE SMlV01tVAl,VBlfSWl,TCltTC2) 

PURPOSE - TO PROVIDE SWITCH COilTROL FOR ONE VARIABLE 

METHOD - SEE CODING 



WRITTEN BY - ADAM LLOYD 


LATEST REVISION NOV 75 


LIMITATIONS - NOT MORE THAN TWO SWITCHINGS AT TIMES TCi AND TC2 
INPUT/QUTPUT LIST 


VOl 

VAI 

VBl 

SWl 

OUTPUT VARIABLE NO 1 
INPUT VARIABLE NO A1 
INPUT VARIABLE NO B1 
SWITCH CONTROL INITIAL VALUE 
=1. VO=VB 

ANY 

ANY 

ANY 

OUTPUT 

INPUT 

INPUT 

INPUT 

VAR 

VAR 

VAR 

PARAM 

TCI 

TC2 

=0 . VO=VA 




TIME FOR FIRST SWITCH 
TIME FOR SECOND SWITCH 
(TC2.GT.TC1) 

SECS 

SECS 

INPUT 

INPUT 

PA RAM 
PARAM 


common/cio/iread,iwrite,idiag 

SX^SWl 
VUl — VAI 

IF(SX.GT.0.5)V01=VBI 

RETURN 

END 
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sx 


7.40 TWO POLE SWITCH 



SEE SW FOR SWITCH CONTROL LOGIC 


Inouts 

Parameter/Port 

Description 


VAl 

Input to swi tch 1 


VA2 

Input to switch 2 


VBl 

Input to swi tch 1 


VB2 

Input to switch 2 


SWl 

Switch control parameter 


TCI 

Time for first switching 

{ hours) 

TC2 

Time for second switching 

(hours) 

OutDUtS 

Variable/Port 

V01 

Output from switch 1 


V02 

Out-put from switch 2 
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CSX 

SUBROUTINE SX(V01f V02fVAlf VA2f VBl, VB2tSHltTCltTCZ) 
PURPOSE - TO PROVIDE A SWITCH COMPONENT FOR TWO VARIABLES 



METHOD - SEE COOING 


WRITTEN BY - AOAN LLOYD 
LIMITATIONS - NOT MORE THAN TWO 


LATEST REVISION NOV 75 
SWITCHINGS AT TIMES TCI AND TC2 


INPUT/OUTPUT LIST 

VQl 

OUTPUT VARIABLE NO 1 

VO 2 

OUTPUT VARIABLE NO 2 

VAl 

INPUT VARIABLE NO A1 

VA2 

INPUT variable NO A2 

VBl 

INPUT VARIABLE NO B1 

VB2 

INPUT VARIABLE NO B2 

SWI 

SWITCH CONTROL INITIAL 


=!• VO=VB 


=0. VO=VA 

TCI 

TIME FOR FIRST SWITCH 

TC2 

TIME FOR SECOND SWITCH 


(TC2.GT.TC1I 

common/ctime/time 

COMMQN/CIO/lREAD,IWRITEtIOlAG 

SWI:^SW1 

IF (TIME. GT. TCI. AND. TIME. LT.TC2 
VOl-VAl 

V02=VA2 

IF(SW.GT.0.5)V01=^VEI 

IF(SW.GT.0.5»V02=VB2 

RETURN 

END 



ANY 

OUT PUT 

VAR 


ANY 

OUTPUT 

VAR 


ANY 

INPUT 

VAR 


ANY 

INPUT 

VAR 


ANY 

INPUT 

VAR 


ANY 

INPUT 

VAR 

VALUE 


iMput 

PARAM 


SECS 

SECS 

INPUT 

INPUT 

PARAM 

PARAM 

=ABS(SWI~l.) 
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7.41 THREE POLE SWITCH 




InDUts 

Parameter/Port 

Descriotlon 


VAl 

Input to switch 1 


VA2 

Input to switch 2 


VA3 

Input to switch 3 


VBl 

Input to switch 1 


VB2 

Input to swi tch 2 


VB3 

1 nput to swi tch 3 


SWl 

Switch control parameter 


TCI 

Time for first switching 

(hours) 

TC2 

' Time for second switching 

(hours) 

Outputs 



Var iabi e/Port 



VOl 

Output from switch 1 


V02 

Output from swi tch 2 


V03 

Output from switch 3 
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CSV 


SY 

SUBROUTINE SY( VGl » V02« V03, VAl » VA 2»VA3f VBl»VB2«Vd3f SWl.TC I»TC2 ) 
PURPOSE - TO PROVIDE A SWITCH COMPONENT FOR THREE VARIABLES 

METHOD - SEE CODING 

WRITTEN BY - ADAM LLOYD LATEST REVISION NOV 75 


LIMITATIONS - NOT MORE THAN TWO SWITCHINGS AT TIMES TCI AND TC2 


INPUT/OUTPUT LIST 




VO I 

OUTPUT VARIABLE NO 1 

ANY 

OUTPUT 

VAR 

Vu2 

OUTPUT VARIABLE NO 2 

ANY 

OUTPUT 

VAR 

VO^ 

OUTPUT VARIABLE NO 3 

ANY 

OUTPUT 

VAR 

VAI 

INPUT VARIABLE NO AI 

ANY 

INPUT 

VAR 

VA2 

INPUT VARIABLE NO A2 

ANY 

j INPUT 

VAR 

VA3 

: INPUT VARIABLE NO A3 

ANY 

INPUT 

VAR 

VBI 

INPUT VARIABLE NO B1 

ANY 

INPUT 

VAR 

VB2 

INPUT VARIABLE NO B2 

ANY 

INPUT 

VAR 

VB3 

INPUT VARIABLE NO B3 

ANY 

INPUT 

VAR 

SWI 

SWITCH CONTROL INITIAL VAL4!£ 
=1. VO=VB 

=0- VO=VA 


INPUT 

PARAM 

TCI 

TIME FOR FIRST SWITCH 

SECS 

INPUT 

PARAM 

TC2 

TIME FOR SECOND SWITCH 
iTC2.GT.TCI) 

SECS 

INPUT 

PARAM 


COMMON/CTIME/TIME 

COMMON/ClO/IREADf IWRlTEt lOlAG 

SW=SW1 

V01=VA1 

V02=VA2 

V03=VA3 

IF( TIME. GT. TCI. AND. TIME. LT.TC2ISW=:ABS(SW1-1.) 

IF(SW.GT.0.5)V0I=VBI 

IF(SW.GT.0.5)V02=VB2 

IF(SW.GT.0.5)V03-VB3 

RETURN 

END 
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7.42 FOUR POLE SWITCH 



SEE SW FOR SWITCH CONTROL LOGIC 


Inputs 


Parameter/Port 

Description 

VAl 

Input to swi tch 1 

VA2 

Input to switch 2 

VA3 

Input to switch 3 

VA4 

Input to swi tch 4 

VBl 

Input to switch 1 

VB2 

Input to switch 2 

VB3 

Input to switch 3 

VB4 

Input to switch 4 

SWl 

Switch control parameter 

TCI 

Time for first switching (hours) 

TC2 

Time for second switching (hours) 

Outputs 


Variable/ Port 


V01 

Output from switch 1 

V02 

Output from switch 2 

V03 

Output from switch 3 

V04 

Output from switch 4 
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sz 

SUaROUriNE. S;^CV01t¥0ZtV03«V04«VAL»VA2»VA3«VA4tV£»ltVB2«Vb3«Vb4« 

\ I SMlfTCl,TC2i 

C PURPOSE - TO PROVIDE A :>W1TCH COMPONENT FOR FOUR VARIABLES 

C 

C 

C METHOD - SEE CODING 
C 

c 

C WRITTEN BY - ADAM LLOYD LATEST REVISION NOV 75 

C 

C 

C LIMITATIONS - NOT MORE THAN TWO SWITCHINGS AT TINES TCI AND TC2 

C 

C 

C IMPUT/OUTPUT LIST 


c 

VOl 

OUTPUT VARIABLE NO I 

ANY 

OUTPUT 

VAR 

c 

V02 

OUTPUT variable no 2 

ANY 

! OUTPUT 

VAR 

c 

VDj 

OUTPUT VARIABLE NO 3 

ANY 

OUTPUT 

VAR 

c 

V04 

OUTPUT VARIABLE NO 4 

ANY 

OUTPUT 

VAR 

c 

VAI 

INPUT VARIABLE NO A1 

ANy 

iNPUT 

VAR 

c 

VA2 

INPUT VARIABLE NO A2 

ANY 

Input 

VAR 

c 

VA3 

Input variable no a3 

ANY 

INPUT 

VAR 

c 

VA4 

INPUT variable NO A4 

ANY 

INPUT 

VAR 

c 

VBl 

Input variable no bl 

ANY 

INPUT 

VAR 

c 

va2 

INPUT VARIABLE NO B2 

ANY 

INPUT 

VAR 

c 

VB3 

INPUT VARIABLE NO B3 

ANY 

INPUT 

VAR 

c 

VB4 

INPUT VARIABLE NO B4 

ANY 

INPUT 

VAR 

c 

SWI 

SWITCH CONTROL INITIAL VALUE 



INPUT 

PARAM 

c 


=1. VO=VB 




c 


=0. VO=VA 




c 

TCI 

TIME FOR FIRST SWITCH 

SECS 

INPUT 

PARAM 

c 

TC2 

TIME FOR SECOND SWITCH 

SECS 

INPUT 

PARAM 

c 


tTC2.GT.ICU 





COMMON/CTIME/TIME 
COMMDN/CIO/IREADt IHRITEt IDlAG 
SW==SW1 

IF (TIME. GT.1 Cl. ANO.TIME. lt .TC2)SW=ABS(SW1-1.) 

V01=VA1 

V02=VA2 

V03=VA3 

V04=VA4 

IF(SW.GT.0.3)V0l=Vai 

1F(SW.GT.0.3)V02=VB2 

IF(SW.GT.0.5)V03=Va3 

1FISW.GT.0.3)V04=VB4 

RETURN 

END 
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7.43 SECOND ORDER TRANSFER FUNCTION 



• 

Z1S + Z0 

I 

FO 

S^+ P1S + F0 



Inouts 

Pa fame ter/ Port 

1 Description 

FIN 

Input quantity 

Z0 

Numerator coefficient 

Z1 

Numerator coefficient 

P0 

Denominator coefficient 

PI 

Denominator coefficient 

Outputs 

Var i ab 1 e/Port 

XI 

Intermediate state 

F0 

Output quantity (state) 

Calculation Sequence 


XI = Z0«FIN - 

F0 = XI + Z1-5JFIN - P1^«F0 


NOTE: d.c. gain i infinite frequency gain = 0. 
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SUBRDUTlNfe TF(Xl,XlDOT,lXl.f^O,FODOT,IFO,FIN,20,Il,l>Otl>U 

PURPOSt - 10 SINULATL A SECOND ORDER TRANSFER FUNCTION WITH 
FIRST ORDER NUHERATOR 


FO 21^S ^10 


FIN 

METHOD - SELF EXPLANATORY 
UMITAIIDNS - NONE 


2 

S ♦ P1*S^P0 


WRITTEN BY ADAM LLOYD LATEST REVISION NOV 73 


IN PUT/ CUT PUT LIST 


XI 

I INTERMEDIATE STATE VARIABLE 

ANY 

OUT PUT 

STATE 

XIDOT 

STATE VARIABLE DERIVATIVE 

ANY 

OUTPUT 

STATE 

IX 1 

INTEGRATOR CONTROL 


PROGRAM 

1 VAR 

FO 

transfer FUNCTION OUTPUT 

ANY 

OUTPUT 

STATE 

FOOOT 

TRANSFER FUNCTION OUTPUT DERIV. 

ANY 

OUTPUT 

STATE 

IFO 

INTEGRATOR CONTROL 


PROGRAM 

1 VAR 

FIN 

TRANSFER FUNCTION INPUT 

ANY 

INPUT 

VAR 

ZO 

NUMERATOR COEFFICIENT 

ANY 

INPUT 

VAR 

ZI 

NUMERATOR COEFFICIENT 

ANY 

INPUT 

VAR 

PO 

DENOMINATOR COEFFICIENT 

1/SEC2 

INPUT 

VAR 

PI 

DENOMINATOR COEFFICIENT 

1/SEC 

INPUT 

VAR 


COMMDN/CIO/IREAD, IWRITEf IDIAO 
IFC IXI-NE.O )X100T-20*FIN--PO*FO 
IF ( I FO. NE .0 I FQD01 1»FIN~P1*F0 
RETURN 
END 
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7.44 TIME CONVERSION 



TIME ► 


Converts simulation running time In hours to time referenced to start of 
day and start of week, and computes number of days and weeks elapsed since 
start of year. 



TD 

TW 

DY 

WY 


inputs 

Parameter/Port 


TO 

TIME 

Outputs 

Var i ab I e/Port 

TW 

TD 

WY 

DY 

MY 

T 

DW 


D_escription 

Initial time of simulation from start of year 
Running time (input via common/ CT I ME) 

Time since start of week 

Time since start of day 

Number of weeks 

Number of days 

Number of months (approx.) 

Running time from start of year 
Day of week 


Calculation Sequence 

T = AM0D(TO+TIME,876O) 
WY = T/168+1 
DY = T/24+1 
MY = T/ 730+1 


TV/ = AM0D(T,168) 
TD = AM0D(T,24) 
DW = TW/24+1 


Uni ts 

hrs 

hrs 


hrs 

hrs 


hrs 
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CTI 


Tl 


SUBROUTINE Tl ( Tt TO tTWt OW tDr» WYt AMYt TO) 

PURPOSE CONVERT SIMULATION TIME TO OAILY* WEEKLYf MONTHLY UNITS 
Hf^ITTEN BY A.M. WARREN VERSION it MARCH 3 I9T 


calil sequence 

T - SIMULATION TIME FROM START OF YEARf HR 

TO - TIME OF DAY, HR 

TH - TIME SINCE START OF MEEK, HR 

DM “ DAY OF WEEK 

OY - DAY OF YEAR 

MY - WEEK OF YEAR 

AMY - MONTH OF YEAR (APPROX.) 

TO - SIMULATION INITIAL TIME FROM START OF YEAR, HR 


OUTPUT V; 
OUTPUT V; ^ 
OUTPUT VT ] 
OUTPUT V/: j 
OUTPUT V; j 
OUTPUT v;j I 
OUTPUT V/|j 
INPUT PAFll 


COMMON / CTlMfc / TIME 
DATA EPS/ .000001/ 

T = AM0D(10-^TIME,8760.+EPS) 
TD = AM00(T^EPS,24.) 

TW = AM00(T+EPS,16S.) 

ND = TW/24.-H.00i 
OM = ND 

NO = T/24. +1.001 
OY NO 

NW = T/168.+1.001 
WY = NW 

MY = T/73Q.+1.001 
AMY = MY 

RETURN 

END 


i: 




I 

t 
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7.45 THERAIIAL LOAD 


TL 


,/\MBIENT TEMPERATURE (TA) 
POWER DELIVERED (LD) 
TIME OF DAY (TD) 


Thermal load is computed as a user specified function of ambient temperature 
and time of day. The actual load delivered Is either the load requested or 
the maximum discharge rate of the thermal storage chamber. The value of the 

thermal energy delivered and % of total load actually delivered are also 
computed. 



RE = TL0(TA)*TWT(TD)*NC 

where 

TL0 = Thermal load versus temperature table 
7WT = Dai I y prof i le weighting function 
NC = Normalizing constant 
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Tables 

Prescription 

Units 

TL0 

Thermal load versus ambient temperature 

kw 

TWT 

Dally profile weighting function (tabular 
with time of day ) 


Paramel-er/Port 

TA 

Ambient temperature 


LD 

Power delivered 

kw 

TD 

Time of day (0-24) 

h 

VE 

Value of thermal energy 

$/kwh 

NC 

Normalizing constant 


Outputs 

Variable/Port 

RE 

Load request 

kw 

VDE 

Total value of energy delivered (state) 

$ 


Statistics 




PC 

Cumul 

ative percent of load delivered 


SLD 

Total 

energy delivered 

kwh 

SRE 

Tota 1 

energy requested 

kwh 
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Calculation Sequence 


TL 


1) Compute load request 

RE = TL0(TA)*TWT(TD)^«NC 

2) Value of energy dynamics 

VDE = LD^ 

3) Statistics 

SLD = SLD+LD^tA/2 
SRE = SRE+RE*A/2 
PC = 100.* SLD /SRE 

where A = Integration step size 
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CTL 


SUBROUTINE TLlTLO.TWl ,VDtf DVD,lVD,Rt,PCtSLD,SR£,TA,LD,TD,VE,NC» 
PURPOSE COMPUTE ENERGY RESPONSE FROM A THERMAL LOAD REQUEST 
METHOD ENERGY DELIVERED IS EQUAL TO THE LOAD REQUESTED OR 

THE MAXIMUM DISCHARGE RATE. 

WRITTEN BY F. D. MAHONY VERSION 1» APRIL 1 1977 

CALL SEQUENCE 
TABLES 

TLO - THERMAL LOAD AS FUNCTION OF AMBIENT TEMPERATURE 
TWT - DAILY PROFILE WEIGHTING FUNCTION VS TIME OF DAY 

OUTPUTS 

VDE - VALUE OF ENERGY DELIVERED (STATE!, i 
DVD - DERIVATIVE OF VDE 
IVD ~ INDICATOR FOR VDE 
RE - LOAD REQUEST, KW 

PC - CUMULATIVE PERCENT OF LOAD DELIVERED 
SLO “ TOTAL ENERGY DELIVERED, KWH 
SRE - TOTAL ENERGY REQUESTED, KWH 

INPUTS 

TA - AMBIENT TEMPERATURE, DEG F 

LD - POWER DELIVERED, KW 

TD - TIME OF DAY, HR 

VE - VALUE OF THERMAL ENERGY, S/KWH 

NC - NORMALIZING CONSTANT FOR LOAD REQUEST 

DIMENSION TLO(3) ,TWT(5> 

CQMMON/CIMPL/IMPL /CSIMUL/ DUM(6 ! , TINC ,TMAX/CTIME/TIME 
COMMON/COST /CC ,CN.CO,CV,CLDtCRE 
REAL LO,NC 


ITL-TLOC2) 

ITW=TWT(Z) 

IFdMPL.GT.OlGO TO 100 


TMAX 1=TMAX*0 .99999 
T1NC1=TINC*.5 

PC =0-0 
SLD=0.0 
SRE=0.0 


COMPUTE LOAD REQUEST 

100 TLD=TBLU1(TA,TLD(A) ,TLO( ITL+AI ,1,-ITL) 
TW=TBLU1(TD,TWT(4! ,TWT(lTW-^4) ,1,-ITW) 

RE -TLO*TW*NC 

VALUE OP ENERGY 
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C 

i |IFIIVD.I«E-0)DVD=LD*VE 
C 

iIFMMPL.LE.llRETURN 

PERFORMANCE STATISTICS 

SLD= SLD +LD* T I NC 1 
' SRE=SRE+RE*TINC1 

. I < 

q : I . 

IF4SRE.GT.0.0)PC=100.0»SLD/SRE 

C 

IFCTIME.LT.TMAXDRETURN 

C 

CV=CV+VDE 

CL 0=C LO+SLO-LO*T INC I 
CR£;= CRE* SR£-Rt*TINCl 
C 

RETURN 

END 







X 
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7.46 AMBIENT TEMPERATURE 



RECORDED TEMP (Ti^ 

TEMPERATURE 

PROFILES (PD,PY) 

TIME OF DAY (TD) — 
WEEK OF YEAR (WYL_ 


^A^BIENT TEMPERATURE (TA2) 


This component Is very similar to the wind component. Ambient temperature 
Is output either from user supplied time histories on storage files or by 
generating a set of random numbers with user specified random variations. 
If user supplied profiles are available^ then the temperatures are genera- 
ted from the following equation: 


TA2 = [PD(TD) +CN(t)]*PY(WY)/M0 

whdre PD and PY are the user supplied dally and weekly profiles, TD and WY 
are the time of the day and week of the year, CN is a colored noise term 
and MO is the average value of PY: 



PY(j) 
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lakLss 

PD 

PY 


D£§gript-»<?n 
Dally profile versus TD 
Yearly profile versus WY 


Units 

arbitrary 


Inputs 

Parameter/ Port 


TA 

1 

Ambient temperature data file 


TD 


Time of day 

hr 

WY 


Week of the year 

- 

CT 


Correlation time of colored noise 

hr 

m 


Mean temperature of colored noise 

°F 

STD 


Standard deviation of colored noise 

°F 


OutDUts 



Var lab 1 e/Port 



CN 

Colored noise sample 

°F 

TA 2 

Ambient temperature 

°F 

AV 

Mean of daily temperature 

°F 

AAO 

Mean of yearly profile 


TIM 

Last time a random sample was generated 

hr 
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■Calcula tion Seguenrp 



1) Initialization (first pass only) 

Compute AV, ffO, and Initial CN 

AV = AI\N + PD(J) 

2) Check for data file input 
If TAl = ,99999 go to 3) 

TA2 = TAl 
Return 

3) Generate colored noise sample CN 
If TIAIIE = TIM RETURN 

A = /EXP(-TiNC/CT) CT>0 

\0* CT=0 

where TINC = integration step size 
CN = CN A + W 

Where W Is white noise with mean = MN*(l-A) and 

standard deviation = STD* Vl-A^ 

TIM = TIME 

4) Compute Temperature 

TA2 = (PD(TD) +CN) *PY (WY)/MO 
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cTp 

C ! 

c ^ 
c 


TP 


SUBRCUTINfc TP «PO.PY.TAO.AV.XM,TIMO.XN, TAI. TD.WY.CT.XHN.STO » 

PURPOSE GENERATE AMBIENT TEMPERATURE FROM DAILY, YEARLY AND RANDOM L, 

METHOD COLORED "“‘“ WITH SPECIFIED FARMS IS ADDED TO A MEAN DAILY 
KKUhlLt AND MULTIPLIED BY A YEARLY PROFILE. 

WRITTEN BY A.W. WARREN ^ 

CALL SEQUENCE 
TABLtS 

PO - MEAN DAILY PROFILE, DEG.F 
PY - MEAN YEARLY PROFILE, DE&.F 
OUTPUTS 

TAO - AMBIENT TEMPERATURE OUTPUT, DEG.F 
AV - MEAN DAILY TEMPERATURE, DEG.F 
XM - MEAN YEARLY TEMPERATURE, DEG.F 
TIMO- LAST TIME COLORED NOISE MAS USED, HR 
XN - COLORED NOISE SAMPLE, DEG.F 

INPUTS 

TAI “ TEMPERATURE INPUT FROM DATA FILE, DEG.F 
TD -* TIME OF DAY, HR 
MY - MEEK OF YEAR <1-521 

^T - CORRELATION TIME FOR COLORED NOISE, HR 
XMN - MEAN temperature OF COLORED NOISE, DEG.F 
STD - STANDARD DEVIATION OF COLORED NOISE, DEG.F 

DIMENSION PD(1},PY(1) 

/CSIMUL/0UM(6|,TINC /CTIME/TIME 

INITIALIZATION 


C 


c 


C 

C 


c 

C 


ND=PD(2) 

NY=PY(2> 


IF(IMPL.GT.O) GO TO 10 
TTMO=-l. 

CALL RN(XN,AX,STDfXMN) 


AV = 0 . 

DO 20 I=1,ND 
L = 3-fND-*-! 

20 AV = AV -I- POiLI 
AV = AV/ND +XMN 


ORIGINAL PAGE IS 
OF POOR QUAUTY 


XM=0. 

DO 30 1=1, NY 
L=3+NY+I 
30 XM=XM-*-PY(L) 

XM=XM/NY 

CHECK FOR DATA FILE INPUT 

10 IFCTAl.EQ. .99999) GO TO 100 
TAO = TAI 
GO TO 150 

GENERATE COLORED NOISE SAMPLE XN 
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100 IF( TIMC.EQ.TIME) GO TO 150 
A=0. 

IFICT.GT.O.) A=EXP(-TINC/CT) 

WMN = XWM^tl.-A) 

WSD = STD»SORT« l.-A*A) 

CALL RM(W,AX«MSOtUNN} 

XM = A*XN-*^M 

COMPUTE AMBIENT TEMPERATURE 

OTP = TBLUli10fPOi4),PO(A-*^NOItIf-NO) 

YTP = TBLUl(MY»PY(4}ffPY(4-HyiYltI«>NY) 

TAO = IOTP + XN)«YTP/ XN 
TIM0=TIM£ 

C 

150 RETURN 
END 
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7.47 VARIABLE RATIO TRANSMISSION 




INPUT ROTOR SPEED(RSl) 
OUTPUT ROTOR SPEED (RS2) 
POWER (PI) 

INPUT EFFICIENCY (EFl) 
MAX. INPUT POWER CMPll 


This component models a transmission which couples a fixed speed rotor Input 
(or output) to a variable speed rotor output (or Input) component. Power 
losses are modeled as a table lookup depending on gear ratio and input power. 

I' 



POWER (P2) 

OUTPUT EFFICIENCY (EF2) 
MAX. OUTPUT POWER (MP2) 


Power 

loss 



Input power (primary independent variable) 


FIGURE 7.47 TRANSMISSION MODEL - LOOKUP TABLE 

V 
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Descriof ir>n 

Power loss versus Inpij;? power and gear 
ratio (TABLE DIMENSION = 66) 


-lilftUts 

Parameter/ Port 


RS 

1 

Input rotor speed 

RS 

2 

Output rotor speed 

P 

1 

Input power 

EF 

1 

Input product efficiency 

MP 

1 

AAaxImum Input power 

CC 


Capital cost/year 

CM 


Maintenance eost/year 


Variable/ Port 


P 

2 

Output power 

TO 


Output torque 

PL 


Power 1 OSS 

EF 

2 

Output product efficiency 

MP 

2 

Maximum power output 


UQ(ts 

kw 


rpni 

rpm 

kw 

kw 

$ 

$ 


kw 

ft-lb 

kw 

kw 
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Calculation Sequence 



If P1<0 or RS1<0 set P2 = T0 = PL = 0 and go to 4) 

1) Determine gear ratio and power terms 

GR = RS2/RS1 
PL = PL0(P1,GR) 

P2 = PI - PL 

2) Determine output torque 

T0 = P23f^737.6/(RS2^H2 7T/60)) 

3) Efficiency and maximum power 

EF2 = EF1-5KP2/P1) 

If P2S0, set EF2 = EFl and write Diagnostic 
MP2 = MPl - PL0{AI\P1,GR» 

wP2<o O diagnostic 

4) Compute Costs 
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CTR 

t 


d 

c 

q 

q 

c 

c 

c! 

c 

c 

c 

c 

c 

c’ 

c 

c 

c 

c 

c 

c 


SUBROUTINE TR(PLU.P2,T0,PL.EF2.MP2,RSI.RS2,PI,EF1.MP1,CC,CMI 

PURPOSE transmission MODEL 

METHOD ^TPUT POKER AND TOROUE COMPUTED FROM 

INPUT AND OUTPUT ROTOR SPEEDS. POWER 

TAftLE LOOKUP DEPENDING 
ON GEAR RATIO AND INPUT POWER 


T 


C 

c 

c 


WRITTEN bY V.K.CHAN 


CALL SEQUENCE 

I tables 


VERSION 1,JUNE 17,197? 


i OUTPUTS^ RATIO ,KM 

I P2 -OUTPUT POWER, KW 

TO -OUTPUT TORQUE, FT-LB 
PL -POWER LOSS,KW 
EFE -output product EFFICIENCY 
INPUTS^^ -maximum power OUTPUT, KW 

RSI -INPUT ROTOR SPEED, RPM 
RS2 -OUTPUT ROTOR SPEED, RPM 
PI -INPUT POWER, KW 
£F1 -INPUT PRODUCT EFFICIENCY 
MPi -MAXIMUM Input power, kw 
CC -CAPITOL COST/YEAR, $ 

CM -MAINTENANCE COST/YEAR, $ 

^CQMMC»./CIMPL/1MPL,ICNT/CTIME/TIME/CSW^^^ 

REAL MP2,MP1 
DIMENSION PLO(l) 

IF(IMPL.GT.0)G0 TO 10 
TMAX 1=TMAX* .99999 
RS2=RS1 
10 CONTINUE 
NNGR=PL0(3) 

NNPl=PLOiZ) 

M4=NNGR-f4 

MN4=JINPX+M4 


COMPUTE GEAR RATIO AND POWER TERMS 


P2=0 . 

T0=0. 

PL=0. 

EF2=EF1 

MP2=MP1 

P2~P1^^*^^*^* ^*^*^" ^**^*^^*^* ^ *^^ ^ 

200 IFiRS2.LE«0)&0 TO 400 
300 GR=RS2/RSl 

P2=pi^^L*^^*^*^****^°*^^* •^'■‘^*^*****-^*^^* *i*i*-mnpi,-nngr,nnpi,nngi 
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non on 


OUTPUT TORQUE 

T0=P2»73?,6»30,/(RS2*3. 14159) 



EFFICIENCY AND MAXIMUM POWER 

EF2=EF1*P2/P1 
IF(EF2.&T »0. )*i0 TO 409 
EF2=EF1 

IF(IMPL.EQ.2)WR1TE(6,408)PL,P1 

408 F0RMATI1H0,25H TRANSMISSION POWER LOSS tF12.3* 

X 21H EXCEEDS INPUT POWER ,F12.3) 

I F ( I HP L . EQ . 2 1 ICNT= ICMT +1 

409 CONTINUE 

tPi-0IMN4)tlflt-NNPl,-NNGR, 

J. fiMN GR ) 

MP2=MP1-AMP2 
IF(MP2.GT.0.)G0 TO 400 
IF(IMPL.EQ.2)WRITE(6,508)AMP2,MPl 
508 F0RMAT(lH0i25H TRANSMISSION POWER LOSS tF12*3> 

X 29H EXCEEDS MAXIMUM INPUT POWER tF12.3) 
IF(IMPL.EQ.2)1CNT=ICNT+1 

400 IFUMPL.LE.DRETURN 

IF(TIME.LT,TMAX1)R£TURN 

CCI=CCI+cL 

CMI=CMI+CM 

RETURN 

END 
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7.48 THERMAL STORAGE CHAMBER 


TS 


STORED 
energy (E) 


POWER REQUEST (REl) 
INPUT POWER (P) 

MAX. INPUT POWER 
(MPl) 



LOAD DELIVERED’ (LD) 
POWER REQUEST (RE2) 
INTERRUPT FLAGCINT) 


The thermal storage chamber is modeled by a "lumped” parameter approach. The 
entire storage media mass is characterized by a single temperature (no tempera- 
ture gradient). The storage media Is either a sensible heat or a phase change 
media. Energy is input via electrical resistance heaters and withdrawn by a 
heat exchanger. Energy is deposited in the media at a rate equal to the 
available electrical power up to a maximum charging power. The discharge heat 
exchanger fluid mass flow rate is adjusted to provide the desired heat load 
demand. The maximum mass flow rate condition determines the maximum thermal 

load. The maximum energy limit represents the point where the maximum media 
temperature is reached. 


The model initially calculates the required storage media mass to provide the 
rated thermal energy storage (design point). Cost calculations are also made 
on the design point conditions. Initial checks on charge and discharge power 
and initial stored energy level are made. The storage temperature is deter- 
mined based on the energy level. 

Note: An example case discussing parameter specification for TS is provided on 
page 54, Reference [l]. 

Basic Equation 

E = P- LD-NU*E 
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TabI es 


Descriot ion 


HT 


Media temperature versus enthalpy in KWH/LB^ 

°F 

1 nouts 




Parameter/Port 



P 


Input power 

kw 

RE 

1 

Demand thermal load 

kw 

NU 


Stored energy loss coefficient (D = 0.02) 

(h)"^ 

TS 


Rated storage tlme^ 

h 

V0 


Rated Input voltage^ 

V 

TMl 


Maximum allowable storage temperature (D = 212) 

°F 

T01 


Minimum allowable storage temperature (D = 60) 

°F 

DH 


Design point enthalpy 

kwh/ 1 b 

PD 


2 

Rated storage thermal power 

kw 

PM 


Maximum charge rate (D = 2^PD) 

kw 

MFM 


Maximum working fluid mass flow rate (D = 9000) 

Ib/h 

TDE 


Temperature deadband for priority resequence 

(D = 4) 

°F 

EF 

1 

Input product efficiency 

— 

MP 

1 

Maximum input charging rate (D = I.XIO^) 

kw 

CP2 


Working fluid heat capacity (D = 2.93X10~^) 

kwh/ 1 b- 

T02 


Working fluid return temperature (D =40) 

°F 

TM2 


/Waximum al lowable working fluid temperature 

(D = 212) 

°F 

R 


Effective heat exchanger thermal resistance 

(D = 3.08X10“'^) 

°F/kw 

CM 


Storage device yearly maintenance cost 

(D = 0.6) 

$/kw 

CSA 


Storage device capacity cost (D =50) 

$/kw 

CSB 


Storage device energy cost (D = 15.2) 

$/kwh 

LE 


Unit life expectancy 

years 


D - Default values specified 
1 - See Figure 7.48 

Design point conditions 


362 


BCS 40262-1 





Outputs 



Variable/ Port 

Description 

Units 

E ; 

1 

Stored energy (state) 

kwh 

1 ' 

Input current 

V 

amps 

MP 2 

Maximum discharge rate allowable 

kw 

INT 

Priority interrupt flag 


T 

i 

Storage temperature 


« j 

Required storage media mass 

lb 

CC0 

Storage device capital cost/year 

$ 

RE 2 

Maximum charging rate request 

kw 

AT 

Working fluid mass flow rate 

Ib/h 

LO 

Power Del ivered 

kw 

Statistics 

i .. 


TSU 1 

Maximum storage temperature 

°F 

TSL 

Minimum storage temperature 


ME 

Maximum stored energy 

kwh 

MFU 

Maximum working fluid mass flow rate 

ib/h 



FIGURE 7.48: TEMPERATURE - ENTHALPY DIAGRAM 
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The calculation sequence and default values assume a thermal storage device 
sized to provide lOkw for 24 hours. A paraffin wax phase change storage me- 
dium is assumed. Water is assumed as the thermal transport fluid. Costs are 
assumed to be given by data for the phase change storage device given in 
Reference 1. The thermal resistance value, R, is assumed equal to that de- 
termined for the device of Reference 1. The value for the maximum charging 
rate, PM, reflects the acceptance of twice the design charge rate. The ac- 
tual numbers which should be used will depend on sped fic design and per- 
formance requirements obtained from a desired application. 

Calculat ion Sequence 

1) Media mass, capital cost, maintenance cost (first pass) 

PD^«-TS 

CC = (CSA+CSB*TS)^D/LE 
CM = CWWD 


2) Storage Temperature and Working Fluid Temperature 
T = HTIE/M) 

TF = min{TM2,max [ T02,T-RE1-MR ]} 

E2 = MM-HT"^ITM1) 


1. "Advanced Thermal Energy Storage," BEC/EPRI RP 788-1, July 1976. 
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Calculation Sequence Cont . 



3) Discharge Rate and Thermal Load 

El = 

MP2 = NfmCP2^{lF-JQ2) 

LD-M I N { REl , MP2, ( E-El ) / T I NC ) 

Nf = LD/(CP25HTF-T02) ) 

4) Diagnostic Checks 

AAF S /V\FM 
P < PM 

T01 < T < TAftl 

5) Current calculations 

, ^ P^^IOOO 
V0 

6) Energy dynamics 

E = P-LD-NU^ 

7) Maximum Charging Rates 

RE2 = min(PM,MPl, (E 2 -E)/TINC)/EF 1 
where TINC = integration step size 
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Ca_l_CM!ation Sequence Cont 




8) Priority resequencing 

if T < T01, INT = 1 

if T > T01+TDE and INT=1, INT=0 

if T > TMl, INT=-1 

If T < TAM-TDE and INT=-1, INT=0 

9) Compute Statistics and Costs 
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JIE' 


CTS 


SUBROUTINE TSCHT,E,DE,IE,I,MP2,INT»T,M,CC0,R£,MF,LD 


TS 


MFM,TOE, tFl,MPl,CP2f 102, 1M2, R,CM ,CSA,CSB 
,LE) 


PURPOSE 

METHOD 


COMPUTE ENERGY CONTAINED IN A THERMAL STORAGE MEDIA 
A PHASE CHANGE OR SENSIBLE HEAT MEDIA IS MODELED AS 
A SINGLE TEMPERATURE MASS WITH NO GRADIENTS. 

WRITTEN BY F. 0. HAHONY VERSION 2, JULY, 1977 
CALL SEWUENCE 


TABLE 

OUTPUTS 

E 

DE 

IE 

I 

MP2 

INT 

T 

M 

CCO 

RE 

HF 

LU 

TSU 

TSL 

ME 

MFU 

INPUTS 

P 

REl 

NU 

TSO 

VO 

IMl 

TOl 

PD 

DH 

PM 

MFM 

TOE 

EFl 

MPl 

CP2 

T02 

TM2 

R 

CM 

CSA 
CSB 
LE ■ 


HT - MEDIA TEMPERATURE VERSUS ENTHALPY IN KWH/LB, DEG F 

- STORED ENERGY ISTATE VARIABLE), KWH 

- POWER INTO STORAGE, KW 

- STATUS INDICATOR 

- INPUT ELECTRIC CURRENT, KW 

- MAXIMUM DISCHARGE RATE ALLOWABLE, KW 

- PRIORITY FLAG INTERRUPT 

■ STORAGE TEMPERATURE, DEG F 

• REQUIRED STORAGE MEDIA MASS, LB 

■ STORAGE DEVICE CAPITAL COST/YEAR, $ 

■ MAXIMUM CHARGING RATE REQUEST, KW 

• WORKING FLUID MASS FLOW RATE, LB/HR 

- THERMAL LOAD DELIVERED, KW 

• MAXIMUM STORAGE TEMPERATURE, DEG F 

■ MINIMUM STORAGE THEMPERATURE, DEG F 
MAXIMUM STORED ENERGY, KWH 

■ MAXIMUM WORKING FLUID MASS FLOW RATE, LB/HR 

INPUT POWER, KW 

THERMAL DISCHARGE REQUEST, KW 

STORAGE ENERGY LOSS COEFFICIENT, 1/HR 

RATED STORAGE TIME, HR 

RATED INPUT VOLTAGE, VOLTS 

MAXIMUM ALLOWABLE STORAGE TEMPERATURE, DEG F 
MINIMUM ALLOWABLE STORAGE TEMPERATURE, DEG F 
RATED STORAGE THERMAL POWER, KW 
DESIGN POINT ENTHALPY, KWH/LB 
MAXIMUM CHARGE RATE, KW 

MAXIMUM WORKING FLUID MASS FLOW RAIE, LB/HR 

TEMPERATURE DEADBAND FOR PRIORITY RESEQUENCE, DEC F 

INPUT PRODUCT EFFICIENCY 

MAXIMUM INPUT CHARGING RATE, KW 

WORKING FLUID HEAT CAPACITY, KWH/LB-F 

WORKING FLUID RETURN TEMPERATURE, DEG F 

MAXIMUM ALLOWABLE WORKING FLUID TEMPERATURE, DEG F 

EFFECTIVE HEAT EXCHANGER THERMAL RESISTANCE, F/KW 

STORAGE DEVICE YEARLY MAINTENANCE COST, $/KW 

STORAGE DEVICE CAPACITY COST, $/KW 

STORAGE DEVICE Ef>»ERGY COST, A/KWH 

UNIT/LIFE FILE EXPECTANCY, YEARS 
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TS 


1F( IMPL,GT.0)&0 10 100 

WX1=TMAX*.V9999 

TINC=0UM(7) 


Ifr CMU.tg. 

IF(TM1.£Q. 

lff<Tul.£6. 

IlrtPH. EC. 

IftiMFM.tC. 

IF i IDE. EC. 

1FICP2.EC. 

iFiTOZ.fcC. 

iF ( TM2. EC. 

IFiR .£0. 

IF(CM .EQ. 

IF(CSA.£Q. 

IFlCSti.EQ. 

1F(MP1.£C. 

iNTs^O.O 

RE1=0.0 

TSU=Cl.O 
HE =^0.0 
MFU=0.0 
TSL=^1.0EE 
CM= CM*PD 


M -PD*TSO/OH 

CCO= (CS.A+CSB*TSOI*PD/LE 


. 99999 )iiu=0. 
.99999 )TMi= 
.999991101- 
.99999) PM= 
•99999)MFM= 
.99999 )TD£=- 
-99999 )CP2=, 
.99999) r02=- 
.99999 )TM2=, 
-99999)R =; 
.99999) CM =( 
.99999)CSA=i 
.99999)CSB=] 
.99999) MPl: 


.02 

=212.0 
=60 .0 
2.0*P0 

9000.0 

4.0 

2. 93 £-4 

40.0 

212.0 
3.00E-4 
0.6 
30.0 
13.2 

- 1.0E6 




COMPUTE STORAGE TEMPERATURE 

100 MH=HT(2) 

T^TBLUK £/Mf HT( 4) *HT(4-»-NH) f 1»NH) 

£1-M*TBLUIC TM1,HT(4+MH) ,HT(4) , 1,NH) 

WORKING FLUID TEMPERATURE 
TF =AMlNl(TH2*AMAXl(T02tT--REl*R) ) 

MAXIMUM DISCHARGE RATE AND THERMAL LOAD 

MP 2=MFM»CP2» ( TF-T02 ) 

IFdNT.EQ.i, )MP2=0. 

LO -ANIN1(R£I,MP2) 

WORKING FLUID MASS FLOW RATE 
IFILD.GT.O.O) MF ==LD/CP2/| TF~T02 ) 

IFdMPL.LE.llGO TO 200 
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nro n o n n o cioo nonn r> nn r non 


IF(IMPL.GT.2) 
PM1= PM/. 9999 


GO TO 200 


TS 


1F(MF .GT.MFM)WRIT£(6,1010)MF,MFM 
IF(P .GT.PMl )WRIT£(6,i020»P »PM 
IFvMF.6T.MFM .OR. P.GT .PMIIICM=ICM+1 
IF(T .LT.TOl.OR. 

I T .GT.TMi)»IRITE(6,1030)T,T01,TMl 
IFCT.LT.TOi .OR. T.GT.TMl) lCN-ICN+1 


CURRENT CALCULATION 
200 1 =P*1000.0/V0 

ENERGY STATE 


IF(I£.NE.O>D£=P-LD-NU’t't 


MAXIMUM CHARGING RATE REQUEST 


A=AMAX1IE1~E,0. 5/T1I4C 
RE =AMINl(PM,MPl,A)/EFi 

PRIORITY RESEQUENCING 

IF«T.LE.TOl)INT:^l.O 

1 F ( T .G£. ( TO 1+ TOE ) . AND . 

I 1NT.EQ.1.)1NT=0.0 

lF(T.Gt.TMl)lNT=-1.0 

IF(T.LT.(TM1-TDE).AND. 

1 1NT.EQ.-1.)INT=0.0 

IFUMPL.LE.DRETURN 

TSU=AMAXl(TSUfT) 

TSL=AMINUTSL,T ) 

ME =AMAX11ME ,E ) 

MFU=AMAX1(MFU,MF) 

IF(T1ME.LT.TMAX1)RETURN 

COST 

CMI=CMI+CM 
CCI=CCi+CCQ 
CM = CM/PD 
C 

RETURN 

1010 FORMAT ilHO,26HTS WORKING FLUID FLOW RAT£,F12.3 

1 ,32H GREATER THAN MAXIMUM ALLONED ,F12.3 ) 

1020 FORMATdHO.lAHTS INPUT POWER, F 12. 3 

1 ,4AH GREATER THAN MAXIMUM ALLOWED CHARGE RATE,F12.3) 

1030 FORMATdHO, 23HTS STORAGE TEMPERATURE ,F12.3 
1 ,20H OUTSIDE MINIMUM ,FI2.3 
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tXbH 


MO maximum, FI 2.3) 


EMO 



I 
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7 . 49 TURB 1 NE { PNEUMAT I C ) 



MASS FLOW RATE (M) 
TEMP (Tl) 

ROTOR SPEED (RS) 
INPUT POWER (PI) 
MAX. INPUT POWER 

INPUT EFFICIENCY 
(EFT) 



POWER (P2) 

MAX. OUTPUT POWER (MP2) 
OUTPUT EFFICIENCY (.EF2) 


The turbine model is based on a high pressure ratio, constant angular velocity 
design. The turbine is assumed to be designed to a set of of operating con- 
ditions defined in terms of user specified parameters. The polytropic effic- 
iency IS only weakly related to angular velocity. Initial calculations are 
made with the design polytropic efficiency, and refinements are then com- 
puted after off-design parameters are calculated. 

Basic Equation 

The equation for output power P2 Is 
P2 = WtCP*(Tl-TA) 


BCS 40262-1 


371 






Inputs 




Parameter/ Port 

Description 

Units 

M 


Inlet mass flow rate 

Ib/h 

CP 


Air heat capacity (D = 7.2X10~^) 

kwh/ 1 b/°F 

T 

1 

Input air temperature 

°F 

TA 


Ambient air temperature 

°F 

ND 

i 


Design mass flow rate (D = 4800) 

Ib/h 

TID 


Design inlet air temperature (D = 600) 

®F 

PID 


Design inlet pressure (D = 117.6) 

psi 

P2D 

• 

Design exit pressure (ambient) (D = 14.7) 

psi 

T2D 


Design exit temperature (ambient) (D = 70) 

°F 

PS 


Storage vessel pressure 

psi 

RS 


Angular velocity 

rpm 

EF 

1 

Input product efficiency 

- 


1 

Maximum input power 

kw 

P 

1 

Input power 

kw 

CK 


Capacity cost coefficient^ (D = 0.015) 


F0 


Turbine mass flow exponent for capital cost 

(D = 0.75) 


G 


Turbine temperature exponent for capital cost 

(D =0.5) 

- 

NPD 


Design Polytropic Efficiency (D = 0.88) 


Outputs 




Variable/Port 



P 

2 

Output power 

kw 

ccd 


Turbine cost/year 

$ 

PR 


Back pressure 

psi 

TO 


Torque 

ft-lb 


D - Default values supplied 

^ CK = Capital cost (known uni t J/Cfdesign point mass flow rate 

(design point temperature + 460)6 tt LN (inlet/outlet pressure ratiol'^^LE] 
where iE = life expectancy in years, * 

. ■> #: 
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Outputs Gont . 
Variable/Port 
EF 2 

MP 2 


Description 
Output product efficiency 
Maximum discharge power 


Units 

kw 


Statistics 

M0P Maximum power observed kw 

The calculation sequence and the default values are based on the assumption 
of a high pressure ratio, constant angular velocity turbine, rated at 150 kw 
and a pressure ratio of 8. The equations used relate first order effects 
among the various physical quantities and were derived from first principles 
originally in support of the research work of Reference 1. Cost scaling was 
also developed in that reference based on cost estimates from turbomachi nery 
manufacturers. 


1. "Closed Cycle High Temperature Control Receiver Concept for Solar Electric 
Power," BEC/EPRI RP377-1, June 1976. 
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■Ca I cu I at i on Se quence 

1 ) Costs 

CC = CK*(AAD)-)Hff0#(TlD+46O)'5H<G'JH.N{PlD/P2D) 

2) Back Pressure PR determined by 

PR = (M/iWDi*PlD-5f /(TI+460 ) / (T I D+460 ) 

If PR > PS write DIAGNOSTIC 

3) Efficiency 

RAT = (PID/P2D)^(2/7) 

EFF = (RAT-1. )/{RAT*^t(l/NPD)-l) 

4) Power Out 

P2 = AA-»CR5-(Tl-TA)-5fEFF 

5) Torque 

If RS = 0/ set TO = 0 and go to 6) 

TO = P2«-{737.6)/(RS*2TT/60) 

6) Efficiency and maximum power 

EF2 = EF1-5(EFF 

MP2 = mln(MPl-J«EFF,MD^P5t(Tl-TAn 

7) Compute Statistics and Costs 


374 


BCS 40262-1 


ooooooooooooooor'ooooooooooorior'ooooooriooo 


CTU 


TU 

SUBROUTINE TU(P2»CCf PR,T0,EF2tHP2tM0PtMfGPtTl#TA tMOt TIDt PlOfPZO* 

1 t20tPS,RStEFltMPl,PifCK,FfG»NPd) 

PURPOSE TURBINE PERFORMANCE MODEL 

! METHOD COMPUTE TURBINE POWER OUTPUT FROM INPUT DESIGN 

I i i 

CONDITIONS AS A FUNCTION OF INLET TEMPERATURE 
AND MASS FLOW RATE 

WRITTEN aV F.O. MAHONY VERSION I# MARCH 22 1977 

CALL SEQUENCE 
I OUTPUTS 

i i P2 - OUTPUT POWER, KW 

CC - TURBINE COST PER YEAR, S 

; I PR - SACK PRESSURE, PSI 

Ml TO - TORQUE, FT-LB 

I EF2 - OUTPUT PRODUCT EFFICIENCY 

MP2 - MAXIMUM DISCHARGE POWER, KW 
MOP - MAXIMUM POWER OBSERVED, KW 
I INPUTSi 

Mi - INLET MASS FLOW RATE, LB/HR 
CP - AIR HEAT CAPACITY, KWH/LB/OEG F 
Ti ~ INPUT AIR TEMPERATURE, DEG F 
TA - AMBIENT AIR TEMPERATURE, DEG F 
Mb - DESIGN MASS FLOW RATE, LB/HR 
I TID - DESIGN INLET AIR TEMPERATURE, DEG F 

j PlO “ DESIGN INLET PRESSURE, PSI 

P2D - DESIGN EXIT PRESSURE (AMBIENTl, PSI 

T2D - DESIGN EXIT TEMPERATURE (AMBIENT), PSI 

PS - STORAGE VESSEL PRESSURE, PSI 

RS - ANGULAR VELOCITY, RPM 

£F1 - INPUT PRODUCT EFFICIENCY 

MPl “ MAXIMUM INPUT POWER, KW 

PI - INPUT POWER, KW 

CK - CAPACITY COST COEFFICIENT 

F - TURBINE MASS FLOW EXPONENT FOR CAPITAL COST 
G - TURBINE TEMPERATURE EXPONENT FOR CAPITAL COST 
MPD - DESIGN POLYTROPIC EFFICIENCY 


C 


COMMON /CIMPL/IMPL,ICNT/CTIME/ TIME /CS1MUL/0UMC7) , TMAX /COST/CCI 
REAL MP2,M0P, M.MO, MPlfNPO 
DATA PI /3- 14159/ 


IFCIMPL 
IF(CP . 
1F(TA . 
IFIHD . 
IF(TID. 
IFCPID- 
1FIP20. 
IF(T2D. 
IF(CK • 
IF4F . 
IF(G - 


.GT 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 


.0) GO TO 100 
.99999) CP = 72. OE- 
.99999) TA = 70.0 
.99999) MO = 4800. 
.99999) TID-600.0 
P 10=117.6 
P2D-14.7 
.99999) T2D=70.0 
.99999) CK =0.015 
.99999) F =0.75 
.99999) G =0.5 


.99999) 

,99999) 
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IF«i<lPa .£Q, .99999 )NPD= .88 
MOP - 0. 

RS= AMAXKO.CtAMlNKRSt 4000.)) 
TMAXl=-99999»rMAX 

CC = CK+MO=>*F*{TID+460.)*tG*ALOG(PI0/P2O> 
DETERMINE BACK PRESSURE 

100 RAT= t PI D/P20) ♦♦•ZSS? 

tFF= {RAT~1.0)/|RAT«*(1./NPD) - i.O) 

PR = M/MD^PlO»SQRT(m + 460.0 )/(Tl 04^460. )) 


C 

c 

c 

c 


IF (PR.GT.PS I GO TO 1000 

POWER OUTPUT 


200 P2^ M*CP^(Tl-TA )=>EFF 
TO = 0. 

IF(RS.Ew.O. .OR, Pl.EQ, 0*) GO TO 300 
^ TORCUE 

TO = P^*T37.6/{RS*2.0»P1/60*&| 

^ efficiency and maximum power 

300 EF2 = EFl^EFF 

MP2 = AMIN1(MP14=£FF tMO*CP*( Tl-TA) 1 
IFdMPL.LE. 1) RETURN 
MOP = AMAX1(MUP,P2) 

IF(riME.LT.TMAXl) RETURN 
CCi = CCI + CC 
C 

RETURN 

C 

1000 IF(IMPL.EQ.2IWRn£C6,10l0) PR, PS 

1010 FORMAT «1H0,21HTURB1NE BACK PRESSURE, F12. 3, 

IF(IHPL.EQ.2?^NT.ICn“I!'‘ 


GO TO 2G(C 
END 



F12.3 ) 


original 

^ POOfj 


Page 

quality 
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7.50 UTILITY 




SURPLUS POWER (PO) 
PEAK POWER REQUEST (RE) 



BASELOAD GENERATION (PI) 

PEAK LOAD GENERATION (P2) 

MAX. POWER CAPACITY (MP2) 


The utility model has two power outputs corresponding to baseload and peak 
generation, with corresponding generation cost inputs. A surplus power input 
is also provided with cost credit depending on whether baseload or peak power 
is reduced. Total energy cost, total output power and total peak load requests 
are monitored. 


Minimum input parameters to specify the utility are: 


CB = cost of baseload generation ($/kwh), 
CP = cost of peak load generation ($/kwh). 


Note: Even if no baseload generation is assumed, CB may be needed to compute 
surplus power cost credits. 
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Inputs 

£'ac?iing.t$.rZP.g.rJ. 


Bj; 

CEi 

MP 

P 

RE 

CP 

CC 

CM 


1 

0 


Descr i pt ion 

Baseload generation (default = 0.) 

Cost of base load genera 1 1 on/ kwh 

Q 

Ateximum power capacity (default = 1x10 ) 

Surplus power returned to utility 

Peak generation request 

Cost of peak load genera t Ion/ kwh 

Capital cost/ year 

Maintenance cost/year 


Outputs 
Var iabi e/Port 
P 1 

MP 2 

P 2 

CO 


Base load generation (= BS) 

i ■ i 

Maximum power capacity (= MPl) 

Peak load generation 

Cost of energy used (state) 


Uni ts 
kw 
$ 

kw 

kw 

kw 

$ 

$ 

$ 


kw 

kw 

kw 

$ 


Stat 1 sties 

SR 

SPO 

SP 

VSP 


Sum of requested peak generation kwh 
Sum of output energy kwh 
Sum of surplus energy kwh 
Value of surplus energy $ 
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g.alCUlation Senuenrp 




1) Power outputs 

I f BS > AAPl, write diagnostic 
PI = BS, MP2 = MPl 
P2 = MIN (MPl-BS,RE) 

2) Energy cost dynamics 

C0 = BS^B + (P2-P0)-5(CX ^ 

QX = / CP i f P2-P0 > 0 
\ 0 if P2-P0 < 0 

3) Statistics 

SR = SR + RE -St TINC 

DEL = (° if P2>P0 

\ (P0-P2)^f^TINC if P0>P2 

SP0 = SP0 + (Pl+P2-P0)*TINC + DEL 

SP = SP + DEL 

VSP = VSP + DEL * CB 

Where TINC = integration step size/2 

4) Compute Costs 
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SUBROUTINE UT|PltMP2tP2fC0fC00»IC0»SRf SPO tSP* VSP 
1 tBStCB,MPl,PO,RE,CPfCC,CM) 


PURPOSE MODEL OF UTILITY CAPABLE OF PROOUCIM& 
BASELCAD AND PEAKLOAO POWER, AND OF 
ABSORBING SURPLUS POWER 

METHOD COMPUTE PEAKLOAO GENERATION AND ENERGY COST 
WRITTEN BY Y.K.CHAM VERSION l.JUNE 8,1V77 

CALL SEQUENCE 
OUTPUT 

PI -BASELOAD GENERATION, KW 
MP2 -MAXIMUM POWER CAPACITY, KW 
P2 -PtAKLOAD GENERA! ION, KW 
CO “COST OF ENcRGY USED (SIATEI, $ 

COD -ENERGY COST RATE, $/HR 
ICO -INTEGRATOR CONTROL FOR CO 
STATISTICS 

SR -SUM OF REQUESTED PEAK GENERA! ION, KW 
SPD -SUM OF OUTPUT ENERGY, KWH 
SP -SUM OF SURPLUS ENERGY, KWH 
VSP -VALUE OF SURPLUS ENERGY, $ 

INPUTS 

as “BASELOAD GENERATION 50EFAULT=0. ) ,KW 
C8 -COST OF BASELOAD GENERATION/KWH, $ 

MPT -MAXIMUM POWER CAPACITY, KW 
PO “SURPLUS POWER RETURNED TO UTILITY, KW 
RE -PEAK GENERATION REQUEST, KW 
CP “COST OF PEAKLOAO GENERATION/KWH, $ 

CC “CAPITAL COST/ YEAR, $ 

CM “MAINTENANCE COST/YEAR, $ 


C 


C 

C 

c 


IME/TIME/CSIMUL/DUMI 7 ) ,TMAX 
X /COST/CCI,CMI ,COP, VOE, TDE,TLDtUTV*UTD,SPD 

REAL MP2,MP1 


1F(IMPL.GT.0)G0 TO 100 
IF (BS.EQ.. 99999 )BS=0. 

IF (MPl.EQ., 99999 IMPI^I.EB 
TM AX 1=TMAX* . 99999 

sa=o . ! 


SP=0 . 

SP0=0. 

VSP=0. 

RE=0. 

P0=0. 


COMPUTE POWER OUTPUTS 


TINC1=^DUM(7)*.5 
IF(BS.L£,MP1)G0 TO 100 
IF(IMPL-EQ.2) IIRITE(6,20tt)aS,MPl 
208 FORMAT I IHO.lOH BASELOAD ,F12.3,32H EXCEEDS MAXIMUM PCiiER 

IFCIMPL«EQ.2HCNT=ICNT+1 


CAPACITY 


380 


BCS 40262-1 



o r> n o r o 


c 


BS=MPl 


UT 

100 Pi-BS 
MP2=MP1 

P2>AHINl(MPL-BStR£) 

COMPUTE ENERGY COST 

expo . 

IF(P2.GT.P0)CX=CP 

IF ( ICO.NE .0 ) COO=BS«CB-f ( P2-P0 ) «CX 

IFIIMPL.LE.DRETURM 

STATISTICS 

SR=SR+REPT1NC1 

SPO=SPO+ (P1+P2-P0I*T1NC1 

IF(P2.GT.P0I GO TO 200 

TERM=4P0-P2)*T1NCI 

SPD= SPO+TERM 

SP= SP+ TERM 

VSP= VSP+ Cb^TERM 


C 

200 IF(TIME.LT.TMAX1)R£TURN 
CCI=CCI+CC 
CMi=CMI+CM 
VOE-YDE-CO+VSP 
TOE^TDE-SPO+SP 
UTV=UTV+CO 
UTD=UTD+SPO 
SPO= SPD+SP 
RETURN 
END 
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7.51 WIND 






This model computes wind speed either from user supplied time histories (data 
tape) or by generating a set of random numbers with user supplied daily and 
yearly average profiles and user specified random variation. If user supplied 
profiles are available then the wind speeds are generated from the following 
equation: 

Basic Equation 

WV = [PD(TD) + N(T)]-5fPY(WY)/M 

where PD Is the user supplied daily mean profile 
TD Is the time of the day 
PY is the user supplied yearly profile 
WY is the week of the year 

N is white noise with user specified probability distribution 

m = £ PY(i) 

i=l 
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wo 


Tab 1 es 
PD 
PY 
DF 

■DescrlptFf.q 

Daily profile versus TD (default = OJ 
Yearly profile versus WY 
Density function for white noise terms 
(tabular with speed WV) 

-Units 
mi les/hr 
arbi trary 
arbi trary 

-Inpufs 

Parameter/Port 



WV 1 

TD 

WY 

Wind speed data file input 
Time of day 
Week of the year 

mi 1 es/hr 
hr 

■Outputs 

Variable/P^;^rf• 



W 2 

M 

TIM 

Wind speed 

Mean of yearly profile 

Last time a random sample was generated 

mi 1 es/hr 
hr 

Statistics 

MV 

AV 

Maximum speed 

Average speed (expected daily wind) 

mi 1 es/hr 
mi 1 es/hr 
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Calculati on Sequence 


WD 


1) Compute distribution function and mean M (first pass only) 

( Z DFIV. ) : V. -WV) 

F(WV) = — 

EdF(Vj) 

2) Check for data file input 
If W1 = .99999 go to 3) 

WV2 = WVl 
Go to 5) 

3) Generate white noise input N 
I f TIME = TIM go to 5) 

U = random noise sample, uniformly distributed [0,1] 

Interpolate to find N = F (U) 

TIM = TIAHE 

4) Compute wind speed 

VA/2 = [PD(TD) -t N ]if PY(WY)/M 

5) Compute Statistics 
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SUBROUTINE WO (PO»PY»WF«WVOt AMV» AVt XM,T1H0 fWVlfTOrWY) 




PURPOSE GENERATE WIND SPEED FROM OAlLYt YEARLYf AND RANDOM PROFILE DAI | 

METHOD RANDOM NOISE WITH SPECIFIED DIST. IS ADDED TO MEAN DAILY PROF!; - 

AND MULTIPLIED BY A YEARLY PROFILE. INITIALLY THE DENSITY TABI 1 
WF IS CONVERTED TO A OIST. FUNCTION. i i 

I 

WRITTEN BY A.W. WARREN VERSION It MARCH 4 197^ 

CALL SEQUENCE T ' 

TABLES 

PD - MEAN DAILY WIND PROFILE, MPH 

PY - MEAN YEARLY WIND PROFILE I 

WF - WIND FREQUENCY FUNCTION (NON-GUST, RANDOM COMPONENT), Hf| ; 

S 

OUTPUTS 

WVO - WIND VELOCITY OUTPUT, MPH j 

AMV - MAX. OBSERVED WIND SPEED, MPH 
AV - MEAN DAILY WIND SPEED, MPH 
XM - MEAN YEARLY WIND, - 

TIMO- LAST TIME A RANDOM SAMPLE WAS USED, HR 
INPUTS 

WVI - WIND VELOCITY INPUT FROM DATA FILE, MPH 1 

TD - TIME OF DAY, HR 

WY - WEEK OF YtAR (1-52) i 


DIMENSION PO(l),PY(l) ,WF(1) 

COMM ON/C IMPL/IMPL /CTIME/TIME 
DATA IX/I/ 

INITIALIZATION 

COMPUTE MEAN DAILY WIND SPEED AND DIST. FCN 

MiP=WF(2) 

ND=PD(2) 

NY==PY(2) 

IF(IMPL.GT.O) GO TO 10 
SUM-0.0 
AMN=0.0 
T1M0=-I. 

IF(WF(4-i^2*NP) .EQ. 1.) GO TO 40 
DO 20 I=1,NP 
WF(I+2) = WFU+3) 

L = 3+NP+I 
A-HF(L) 

WFIL)=SUM 
SUM=SUM+ A 

20 AMN = AMN * A«WF(2-i^l| 

ANN = AMN/SUM 

WF(3^P)- WF(NP+2)*2. - WF(NP^l) 

WF(L-H)= 1. 

DO 30 1=1, NP 
L=3+NP+I 

30 WF(L) = WF (D/SUM 
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COMTIMUE 

DEFAULT TABLE FQR PD 

IF(PD(2I.L0. I. 999991 PD(4)=0. 

IF(PD(2).£Q. L. 99999) P0(5)“0. 

1F(PD(2).EQ. 1.99999) PD(2)sL. 

AV = 0- 
DO 25 1=1, NO 
L = 3+ND-fI 
25 AV = AV<-PD(L) 

AV = AV/NO + AMN 

XM-0. 

DO 15 1=1, NY 
L=3+NY+1 
15 XM=XM+PY(L) 

XM=XM/NY 
AMV =0- 

CHfcCK FOR DATA FILE INPUT 

10 IFi HVl.EQ. .99999) GO TO 100 
WVO = MVI 

GO TO 150 

GENERATE WHITE NOISE WITH DIST. WF 

100 IF( TIME.EQ.TIMOI GO 10 150 
CALL UN1F(U,1X) 

NPl=NP^^l 

WN = TBLU1(U,MF(4+NP),HFI3),1,-NP1) 

GENERATE WIND SPEED USING DAILY AND YEARLY PROFILES 
DWV = TBLUUTD,P014),P0(4+ND),1,-N0) 

YWV = TBLUK WY,PY(4),PY(4^NY),1,-NY) 

WVO = (DWV + MN)» YWV / XM 
TIMO=TIM£ 


MAX. OBSERVED WIND SPEED 
150 IF41MPL.LE.1) RETURN 
AMV = AMAXKANVtWVO) 

RETURN 

END 



V 
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7.52 TURBINE/GENERATOR 




WIND VELOCITY (WV) 






WP 



OUTPUT POWER (P2) 


This component uses a power curve relationship with wind velocity to model 
the wind turbine and generator. It may be used in place of the more detailed 
wind turbine-transmission-generator components where a simplified analysis 
IS desirable, or where a nonstandard wind generator model is desired. The 
model may be used for either A.C. or D.C. power generation. 

Basic Eouationct 


WVO 

W1 


P2 = I = 0 ( 

y w> 

P2 = V->'H/1000 WVO $ WV< WVl 



figure 7.52: OUTPUT POWER VERSUS WIND VELOCITY 
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Tab I es 
PW 


DescripHnn 

Wind generation power versus wind velocity ^ 


iiQits 

kw 


Inputs 

Parameter/Port 

V 

Bus voltage (Rated) 

WO 

Power cut in velocity 

WVl 

Power cutout velocity 

WV 

Wind velocity 

CC 

Capital cost/year 

CM 

Maintenance cost/year 

EC 

Control Energy Rate 

■OMtPMt?, 

Varlable/Port 

1 

Bus current 

P 2 

Real power output 


vol ts 
mph 
jnph 
mph 
$ 

$ 

$/hr 


amps 

kw 


Statistics 

Ml 

MP0 

SP 

C0 


Maximum current 
Maximum power 
Total output energy 
Total operating costs 


amps 

kw 

kwh 

$ 


1 

Output power Including mechanical and electrical efficiencies 
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WP 

Calculation Sequence 

1) Initial ize statistics 

2) Compute P2 and I 

' I 

P2 = / PW(WV) WO < WV < WVl \ 

\ 0 otherwise / 

I = P23S-1000/V 

3) Compute Statistics and Costs 
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CWP 


WP 

SUBROUTINE MP C Pilf BIfPO,AMItAMP ,SPfCOtVOtWVOtWVl,MV,CCI fCMI, EC ) 

PURPOSE MODEL IHL Wi»iO TURBINE AND GENERATOR USING A POWER CURVE 

WRITTEN BY A.W. MARRLN VERSION 1, MARCH 3 1V7‘ 

CALL SEQUENCE 
TABLES 

PW - WIND GENERATION POWER IN KW VERSUS WIND VELOCITY IN MPH 
OUTPUTS 

BI - OUTPUT BUS CURRENT, AMPS 
PC - POWER OUTPUT, KW 
AMI - MAX. OBSERVED CURRENT, AMPS 
AMP - MAX. OBSERVED POWER, KW 
SP - TOTAL OUTPUT ENERGY,KWH 
CO ~ OPERATING COST, $ 

INPUTS 

VO - RATED BUS VOLTAGE, VOLTS 
WVO - POWER CUT IN VELOCITY, MPH 
WVl - POWER CUTOUT VELOCITY, MPH 
WV ~ WIND VELOCITY, MPH 
CCI ~ CAPITOL COST / YEAR, $ 

CMI - MAINTENANCE COST / YEAR, $ 

EC - CONTROL ENERGY RATE, $/HR 

DIMENSION PW(1) 

COMMON / CIMPL / IMPL 

COMMON/COST/ CC,CM,COP /CTIME/ TIME /CSIMUL/ DUMC6I,TINC,TMAX 

POWER OUTPUT CALCULATIONS 

PO = 0. 

IF(WV.LT.WVO .OR. WV.GT.WVl) GO TO 10 
N = PW(2) 

PC = TBLUUWV,PW(4),PW(4-fN)tL,-N) 

10 BI = P0*1000/V0 

STATISTICS 

IF(IMPL.GT.O) GO TO 20 
C0= 0. 

AMI =0. 

AMP =0. 

SP = 0. 

TMAX1=TMAX*. 99999 
20 IFCIMPL.LE.l) RETURN 
AMI = ANAXI(AMl,Bn 
AMP = AMAX1(AMP,P0) 

SP = SP + PO*. SITING 
C0= CO + EC*.5*TINC 

c COST summation 

iF( time.lt.tmaxi) return 

CC = CC + CCI 
CM = CM + CMI 
COP= COP ■►CO 
RETURN 

END 
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7.53 WIND TURBINE 


.. gr 



( 


WIND VELOCITY (WVM 
ROTOR SPEED (RS)— ^ 



POWER (P2) 

GEAR RATIO (GR) 


This component models the wind turbine in terms of physical properties such as 
blade radius, power coefficient, and design tip speed ratio. ^ The step-up gear 
ratio is computed based on design rotor speed. 


Basic Equations 
Output power is given by 

P2 = CP*l/2*AD*A*{WV*C)^*k 

where; 

CP = effective power coefficient (tabular with WV) 
A = 7r*(BR)^ 

C = 1.4667 (mph to ft/sec. conversion) 
k = 1.3558 X 10 ^ (ft-lb to kw-sec. conversion) 

Minimum input parameters to specify the wind turbine are: 

VO = mean wind speed, 

BR = blade radius, 

CPM = maximum power coefficient at design speed VO. 


NASA CR 134937 "Design Study of Wind Turbines - 50kw to 3000 kw - For 
Electric Utility Applications", Kaman Aerospace Corporation, February 1976. 
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■ImMts 


Parameter/Port 

Description 

Units 

WV 

Wind speed 

mph 

V0 

Mean wind speed (yearly) 

mph 

VR 

Rated wind speed (default = 1.35 x VO) 

mph 

RS 

Rotor speed 

rpm 

RSG 

Generator shaft speed (desi gn ) (defau 1 1 = 1800) 

rpm 

BR 

Blade radius 

ft 

EC 

Cost to operate controls 

$/h 

AD 

1 

Air density (default = 0.0023) 

slugs/ ft 

LAM-^ 

Design tip speed ratio (default = 9.4) 

_ 

CPM'^ 

Maximum power coefficient at VO (default = 0.4) 


CP 

Effective power coefficient (default table 



versus VO/WV) 

_ 

CC 

Capital cost/year 

$ 

CM 

Cutouts 

Variable/Port 

Maintenance cost/year 

$ 

P 2 

Output mechanical power 

kw 

TO 

Mechanical torque 

ft-lb 

C0 

Total operating cost 

$ 

GR 

Step-up gear ratio 


RAP 

Rated output power 

kw 

Statistics 

MT 

Maximum torque 

ft-lb 

MP0 

Maximum power 

kw 

SP 

Total energy delivered 

kwh 


LAM may be computed using the design equation: 

LAM = SQRT(8/ (3-5^ sol Idity constant * design lift coefficient)) 
If default GP table not used then set CPM = CP(rated wind speed) 
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1) First psss — Compute Gear Ratio and Rated Power 

RS = (UM^0^fC/BR)*(6O/2Tr) 

GR = RSG/RS 

RAP = ,5Wl*AD*A*(VR^)^ 
where 

CPI = /CRIVH«F{VO/VR) if CP default used 
\ CRM otherwise 

2) Compute power coefficient CP 

I f WV = 0 set P2=T0=O and go to 4) 

If CP default used, then 
CP = CPM^(V0/WV) 
where F is shown in Figure 7.53 


(C = 1.4667) 

<k = 1.3558 X lO"^) 

4) Compute Statistics and Costs 


3) Power and torque 
A = 

P = .5^'K:PMDM^f{V/V-JfC)^ 
TO = P/{RS-»f2 7T/60) 

P2 = P^<k 
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ooo noonoooonnnooonoonooorinnoonnooonoo 


CWT 


C 


WT 

SUBROUTINE WT ( PZ.TOtCOt&RtRAPtMT.MPO,SP,WVf VOfVRtRS, RS&tBRtECt 
1 AD»LAM«CPN, CPtCCtCN) 

PURPOSE MODEL WIND TURBINE POWER OUTPUT 


METHOD COMPUTE POWER COEFFICIENT AND ROTOR SPEED FROM PHYSICAL 
DtSI&N PARAMETERS. RATED POWER COEFF. IS 3/4 OF CPM. 


WRITTEN BY A. W. WARREN 


VERSION 2f APRIL 6 1977 


CALL SEQUENCE 
OUTPUTS 

P2 - OUTPUT MECHANICAL POWER, KW 

TO - OUTPUT MECHANICAL TORQUE, FT-LB 

CO - OPERATING COST SUM, S 

GR - TURBINE/GENERATOR GEAR RATIO 

RAP - RATED OUTPUT POWER, RW 

MT - MAXIMUM TORQUE STATISTIC, FT-L8 

MPO ~ MAXIMUM POWER STATISTIC, KW 

SP - TOTAL OUTPUT ENERGY DELIVERED, KWH 


INPUTS 

wv 

VO 

VR 

RS 

RSG 

BR 

EC 

AO 

LAM 

CPM 

CP 

CC 

CM 


- WIND SPEED, MPH 

-MEAN WIND SPEED {YEARLY), MPH 

- RATED WIND SPEED, MPH 

- ROTOR SPEED, RPM 

- GENERATOR SHAFT SPEED, RPM 

- BLADE RADIUS, FT 

- CONTROL ENERGY RATE, $/HR 

- AIR DENSITY, SLUGS/FT**3 

- DESIGN TIP SPEED RATIO 

- MAXIMUM POWER COEFFICIENT AT VO 

“ EFFECTIVE POWER COEFFICIENT AT WV 

- CAPITAL COST PER YEAR 

- MAINTENANCE COST PER YEAR 


COMMON /CIMPL/IMPL /CTIME/ TINE /CSINUL/ DUN( 6) , TINC,TMAX 
COMMCW /COST/ CCI,CMI,COI 
REAL MT, MPO, LAM 
DIMENSION F(22> 

DATA F/. 24, .4,. 6,. 68,. 8,1., 1.2, I. 31, 1.4, 1.6, 1.74,0.,. 31, .68,. 8, 

1 .92, I., .92, .8, .68,. 3,0. /, Cl, C2, PI/1.4667, .0013358, 3.14159 / 


INITIALIZATION 

IF(IMPL.GT.O) GO TO 100 
TMAXl = TMAX* .99999 
TINC2 = .5* TINC 


IF( VR .EQ. .99999) VR = i.35* VO 
IFiRSG .EQ. .99999) RSG= 1800. 

IFC AD .EQ. .99999) AD = .0023 
IFCLAM .EQ. .99999) LAM- 9.4 
IFC CPM .EQ. .99999) CPM= 0.4 

RS = C1»LAM*V0/BR*(30./PI) 

GR = RSG /RS 
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ooo noo non 


CPX=CPM 

IFICP.EQ.. 99999 JCP1= CPM*TBLUi IV0/VR,F( U ,FC 121 , 1,-11) 

RAP= . 5«CP1^A0*P1*BR«BR* I VR*C1 ) ♦♦3*C2 

CO =: 0.0 
SP = 0.0 
HPOs 0.0 
MT = 0.0 

POWER COEFFlCieiiT CALCULATIOMI 

100 P2 = 0.0 
TO = 0.0 

IF( MV.EQ. 0.) GO TO 200 
CPI = CP 

IF( CPl.EO. .99999) CPI = CPM*TBLU1( V0/WV,F { 1) ,F (12) , 1,-11) 
IFCCPl.EQ. 0.) GO 10 200 

OUTPUT POWER AND TORQUE 

A = PI+BR**2 

P = .&«CP1*AD«A«(WV«C1)«4c3 
IFIWV.GT.VR)P= RAP/C2 
T0=P/CRS^PI/30.) 

P2 = P+C2 

STATISTICS ANO COSTS 

2G0 IFJT MPtritE.1 # RETuRni 

C 

CO = CO ♦ EC^TINC2 
HT = AHAXK MT.TO) 

MPO= ANAX1(MP0,P2) 

SP = SP ♦ P2*TINC2 
C 

IFiTIME.LT.TMAXDRETURii 
CCI = CCI + CC 

CMI = GMI ♦ CM 

COI = COI ♦ CO 

C 

RETURN 

END 



ORIGINAL PAGE m 
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8.0 WIND GENERATION AND STORAGE EXAMPLES 


This section gives four simple example simulations using the SIMWEST program. 
These examples exercise all storage components of the SIMWEST library and many 
of the model features. Each example contains the input data for model genera- 
tion and analysis, selected printer output generated by the programs and a 
discussion of the results obtained. It is recommended that a user work through 
and understand the model connections for these examples before attempting to 
build more complex models. 

8.1 BATTERY STORAGE MODEL 

A simplified schematic of the battery storage model is shown in Figure 8.1-1. 
In this model, wind power supplemented by utility generation is supplied to a 
power divider, which delivers power to the load as a first priority', and 
bafteryTtorage as second priority. Similarly^ if the load cannot be met from 
the wind or storage, then the utility is reguested to supply peaking power to 
meet the load. This model exercises the logic components including the prior- 
ity interrupt. 

Figure 8.1-2 shows the model generation input data for the model. The compo- 
nents are generally defined in the order of power flow shown in Figure 8. 1-1, 
Ordering the component definition in this wa,y is reooimiended to avoid conver- 
gence problems in the iteration loop. Thus, it would be somewhat better for 
consistency to define LIT after WP rather than after LO in the model. All three 
types of model connections are illustrated in this example. For example, WP 
has the general input connection WD, MAB has the specific input connection 
WP(P,2 » FIN), and PD has the port to port connection PA(1,1). The port 
connections are especially useful for connecting up the multiport logic compo- 
nents PA and PD. The connection PA(1,1), for example, connects an input 
request of PD to PA and a power and maximum power input of PA to PD. It may be 
observed that the utility is connected up to the surplus port of PD. Thus the 
baseload power sent to MAB in effect is reduced whenever the load and battery 
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'ir: rz. :: t ■■ «' “■« 

c™™ ..... „„ „ »;»» • 

schematic generated by the proaram Mncf -f +-u niodel 

-t cc.s,o„an. a "T 

input REIPA to PD is not shown in 8.1-3. In cases X t^^^^ 

Chech the Fortran „de, (eq«o) i„ order to verify the ^del connection?''' 


model description 

L0GATI0N=74 

TI! 

L0GATI0N=61 

WD 

L0CATI0N=21 

WP 

L0CATI0N=42 

MAB 

L0CATI0N=33 

PD 

L0CATI0N=15 

RE 

LOCATION=17 

BA 

L0CATI0N=45 

PIB 

L0CATI0N=19 

IV 

L0CATI0N=69 

PA 

L0CATI0N=76 

LO 

LOCATION=62 

UT 

L0CATI0N=1 

CM 

END OF MODEL 



BATTERY TEST CASE 

INPUTS=TI 

INPUTS=WD 

INPUTS=WP(P,2=FIN),UT(P,1=C2) 
INPUTS=MAB(F0=P).MAB(F0=MP),PA(1,1),pib(2 2) 

BA(RE=RE,2) ^ 

INPUTS=PD(2,1) 

INPUTS=RE,PA{RE,2=RE) 

INPUTS=BA 

INPUTS=BA 

INPUTS=IV(2,2),L0(1,0),PIB(4,2),UT(2,3) 

INPUTS=TI 

INPUTS=PD(SP=P,0) 


LIST OF STANDARD COMPONENTS 
PRINT 


figure 8.1-2 BATTERV MODEL INPUT DATA 

- ... .... rj " "r 'rr 

'• ~ .. .... rr... 
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FIGURE 8.1-3 BATTERY MODEL SCHEMATIC 


TITLE* BATTERY MODEL TEST 

Parameter values 

CR CMb15.#LE CM«30. 

S? UT..016.CP UT«.OJ,CC UT»J»00.,CM UT-IOOO, 

ClM4oB|a 

CvCLES«<l,OlrTO Tl*0,v 0 p WVOWPbB , W V 1 WP«60 » DLIMES«l 00. 

CC NP*16000,CM WP«l200,PSlPl8a2. ou,ULiNts»ioo. 

EC’ i^Pa.2 

MC LOe,005#CT LOaO.HN L0«0, STDLOaS, VE LOa.023 
RAR8A«300. »E1 BAb2000,,EDEBA«100, 

V:0 8A»J00 

01 8A«10,,CC BA«2000.,CM BAalOO, 

RAPRE»200,»CC RE*200.#RAPIV*200,,CC IV»0. 

TABLE, PW WP*10 

;,10,12, 1«» 16, 18,20,21.53,25,30 

8,800 

TAuLE,MYnOB13 

0., 4, 53, 0, 67, 13,, 17, 33, 21*6 7,28, ,30, S3, 30, 67, 39, ,i|5. 33, <17. 67*52 
65,67,68,65,61,56,51.09,09.52,56,61,65 » 67 # 52, 

Table, po wi)»7 
0,0,8,12, 16,20,20 
10,12,10,16,10,12,10 
Table, OF wdb16 

0.1,2,3,0,5,6,7,8,9,10,11,12,13,10,15 

TAPLc#rD Lub17 

0, 1,5, 3, 0.5, 6, 7, 5, 9, 10,5# 12 
13.5,15,16,5,18,19.5,21,22,5,20 
050,360,372,330,050,660,810,798,800 
690,708,699,702,750,708,570,050 
Table, R w lo«t 

1,2, 3, 4, 5, 6, 7 
1 , 1 # ,9, .9, ,9, .6, ,5 
Table, py lo»6 

Q#10,20, 30,40,52 

226, 194, 180, 174, 194,226 

INITIAL CONDITIONS, PE BA «1990. 

PRINTER plots, DISPLAY! 

WV2WD,VS,TIME 
Pi PO, VS, TIME 
P2 PD, VS, TIME 
PE BA, VS, TIME 
0I8PLAV2 
P2 IV, VS, TIME 
RE28A,VS,TIME 
RE1L0#V8,TXME 

SIMULATE * C0NTR0L«3,INT M00|«3#0UTRATE«B 

Parameter values, bs ljt»o,,nc lo»,oo 3 
El 8AaioO0.,EOEBA*200. 

CC iValOOO, 

INITIAL conditions, PE BA1250, 

SIMULATE 


FIGURE 8.1-4 INPUT DATA FOR BATTERY SljWJLATlON 
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WIND ENERGY STORAGE COST SUMMARY 
- 30 YEAR UIFE. CYCLE - 


• yearly^system costs 

- CAPITAL COST ■ 66000, S — 

(INCLUDING FIXED CHARGES) 

FIXED 0 M COST — 2300, ,$ 

operating ♦ FUEL COST 1753. S 

TOTAL 90053, S 


•ENERGY DELIVERED 

energy delivered 0682165. KWH 

*********•***************»*★*****•*******,******* 

* ENERGY COST PER KWH 19,3 MILLS 

********* *»*********»***H***i,*iH,tt tit* 

VALUE OF energy DELIVERED- 105000 $ 

(VALUE OF FUEL SAVED) 

ENERGY VALUE PER KWh 22,5 MILLS-- 

COST PER VALUE DELIVERED ,86 


• LOAD FACTOR 

PERCENT OF LOAD SUPPLIED 
_ BY TOTAL WID SYSTEM - 

PERCENT OF LOAD SUPPLIED 
BY UTILITY - _ 

PERCENT OF wind ENERGY 
SURPLUSED 

COST TO meet load 

(WIND A UTILITY) 


90.4 

9,6 

4,0 

tO.B MILLS 


1-5 — COST . MmLmB-niiTPUT for rai 



FIGURE 8.1-6 WIND PROFILE FOR BATTERY SIMULATION 
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FIGURE 8.1-7 WIND POWER SUPPLIED TO LOAD 
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FIGURE 8.1-8 BATTERY POTENTIAL ENERGY STORAGE 



8.2 FLYWHEEL STORAGE MODEL 


Figure 8.2-1 shows a simplified schematic of the flywheel storage model. This 
model is very similar to that of 8.1 except that flywheel storage replaces 
battery storage, and a power line Toss is included in the model. The input 
data for this model is shown in Figure 8.2-2. Observe that the components are 
defined in the order of information flow shown in 8.2-1. The admittance 
component AD is used to model transmission line power losses. The model 
schematic is shown in Figure 8.2-3. 


MODEL DESCRIPTION 

FLYWHEEL TEST CASE 

L0CATI0N=74 

TI 


L0CATI0N=61 

WD 

INPUTS=TI 

L0CATI0N=21 

WP 

INPUTS=WD 

L0CATI0N=42 

MAB 

INPUTS=WP(P,2=FIN),UT(P,1=C2) 

L0CATI0N=33 

PD 

INPUTS=MAB(F0=PP),PA(1,1),PIB(2,2).FL(RE=RE,2) 

L0CATI0N=13 

MO 

INPUTS=PD(2,1) 

L0CATI0N=4 

TRI 

INPUTS=M0(2,1),FL(RS=RS,2) 

L0CATI0N=6 

FL 

INPUTS=TRI,PA(2,1) 

L0CATI0N=8 

TRO 

INPUTS=FL,GE(RS=RS,2) 

L0CATI0N=19 

GE 

INPUTS=TRO 

L0CATI0N=69 

PA 

INPUTS=GE(2,2),L0(RE,1=RE,0),PIB(4,2),UT(2,3) 

L0CATI0N=78 

AD‘ 

INPUTS=PA 

L0CATI0N=76 

LO 

INPUTS=TI,AD 

L0CATI0N=62 

UT 

INPUTS=PD(SP=P,0) 

L0CATI0N=1 

CM 



END OF MODEL 

LIST STANDARD COMPONENTS 
PRINT 


FIGURE 8.2-2 FLYWHEEL MODEL INPUT DATA 
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FIGURE 8.2-1: FLYWHEEL STORAGE EXAMPLE 
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FIGURE 8.2-3 FLYWHEEL MODEL SCHEMATIC 
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The simulation input data shown in Figure 8.2-4 uses the same wind and load 
data as Example 8.1. However, the storage component is rated at 400 kw with 
one hour storage, simulating a system used for temporary storage and discharge 
during peak power generation and load demand periods. It may be noted that the 
transmission power loss table is input for both TRI and TRO. Figures 8.2-5 to 

8.2- 7 show results from the simulation. Charging power to the flywheel in 
excess of that needed for the load is shown in Figure 8.2-5. Even with average 
load demand exceeding wind generation, the flywheel is charged at rated power 
fairly often. The kinetic energy stored by the flywheel over a two week period 
is shown in Figure 8.2-6. During the week, energy is frequently withdrawn and 
storage is generally not much above the deadband (80 kwh), whereas during the 
weekend the reverse is true. Output from the cost monitor is shown in Figure 

8.2- 7, The capital costs may be low since nominal values were used for 
component costs. The utility supplied nearly 20515 of the load in this case, 
since flywheel storage capacity is quite low. 
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TTTLEb flywheel model test 
parameter values 

• 2 AD»fl.»G3 AR«8,,GM A0«*8*V8H AUsSOO 

SP Qfs.008,C2 FL«1.E-8 

FL«5.5,SW FL*,R#wT PLsauooO.KP ELel.iE-S 
RS HO-iUJ FL3«0,E1 M. = «00 ,K()LELs20,CM FLbBOO^CC FLbSOO 

■ Oiort TWI=500,CM TpIbO,CC TRDsiSnO,CH TROaO. 

RAPGEul OOOf CC GEclooOfCM CEeJOO, v« . .. 

CR CM=lb.,LE CMaSO. 

Cl Mab-i'*^^ ^T**016,CP UTS.03/CC UTxloO0,,CM UTaJOgo, , . 
CVCLps't.OlfTO TlaO»V WPaiJ 00 , WVOWPaS, WV 1 Wps60 # OL I R£S*1 00. 

CC wPsI6Q00 ,CM WPr 1H00,PS1PI8»2. ' fULlNCa MJP, 

EC WPa,2 ■■” — 

TARLE*PLDTRiJ5‘'2*^'"^ LO»0,8TOLO«6,VE L0..02S 

0.5, 1,1. Sr 1,72*' ' r'--™'"-— • - 

O.ttOOrOOOr I 100, 1300 
, 0.16, 13, 1». 5, 20 

0.10,11,11,5,12 ■ 

0,10,10,10.5,11 
0 , 6', 6 , 5 , 7 , 1 0 . , , ^ 

TABLE,PL0TR0sS,4 " \ - - 

.3,1,1.5,1.72 
-,0. <100,900, 1 100,1300. 

0.16,16,18,5,20 ... 

0.10,11,11,5,12 

o,l3,in,io,s,ii.„ 

0,0,6.5,7,10 ■ ... 

TABLE,CL0FLb3,3 

. -looo, 0, 1000 ; , _ _ j. _ 

2000, «000, 7000 <-— «■— 

2.8» 7.4, 15 

.9* 2.5, 5 

2.6, 7,2,15 

table, CL lFLal 

- 2000, 4000,7000.- ..... 

.«« 2.4, 4 ' " ■' ■' ^ • - 

TABLE, PW WP=10 

-. 0,10.12,14,16,16,20,21.53,25,30 , . „ _ __ 

U^3U;P^ND=7 . » . » 

’ 0.4, .8, 12,16, 20,28 

10,12,14,16,14,12,10 ' ........ 

TABLE, OF WDb16 

. 0,l,2,3,4,5,6,7,0,<},i0, n,ij,i3,ta,j5 ^ _ 

0. 1.5.3.4.5.6.7.5.9.10.5.12 

‘*•5* ‘5,16, 5,1 8, 19. 8,21,22. 5, 24 

450,560, 372, 33 0,4 5 0,660, 6 10, 798, 804 ' 

.690,706,699,702,750,708.570,450 , 

Table, P w lo«7 * *■ •• 

1,2, 3, 4, 5, 6,7 Of?/r'|iii a 

1. W. 9. .9. .9, .6. .5, Paq^ 

TAaLE,PVLU»6 ■ ^ ■ - - - 

0, 10,20,30,40,52 " V^ALfry 

. 226,194, 100,174,194,226 . . . ... ^ 

Initial conditions, kl FLa3oo. - ■ 

printer plots, D lSPLAYl 
. WV2W0, vs, TIME 

Pi PD, VS, TIME — 

P2 PO, VS, TIME 

KE FL, VS, TIME .. 

0I3PLAY2 "" .... 

P2 GE, VS, TIME 

.RE2FL, VS, TIME . 

RElLn,VS,TIME ‘ "™ '' ' ' ' 

CONTROL-3, IMT MOOE-3,OUTRATE-8 


QUAifjY 



FIGURE 8.2-4 FLYWHEEL SIMULATION DATA 
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8.3 HYDRO AND THERMAL STORAGE MODEL 


model description 


electrical loadt' iSiL'rolTs'LptiTeTfV'sT toT'! “r 

with excess power going into hydro and th , ^ electrical load, 

-Hven hy an a*ient telperatorco.Z!e“e1:T- 

IS supplied by a time dependent look-up table «'>«'■» value 

input data. The components are ordered acco d-' 

8.3-1. Observe that the maximum power input of'the "h” 

- - - power output P. The ^odel^chlrrrLrrPi^^^^^^ 

hydro and thermal test case 

INPUTS=TI 
INPUTS=WD 

INPUTS=WP.WP(p=„p),pa(1 1) 

INPUTS.TS(2,3),PIT(2.3) ‘ 

INP(JTS=PD(2,1) 

INPUTS=M0 

iINPUTS=PU,PA(RE,2=RE) 

^ INPUTS=HS 
INPUTS=HS 
INPUTS=HT 

INPUTS=GE(2,2),L0(1,0).PIH(4,2) 

INPUTS=TI(TD=FIN) 

INPUTS=TI,FU(FO=VE) 

INPUTS=TL 
INPUTS=TS 
INPUTS=TI 
INPUTS=TI,TP 


LOCATION=77 

TI 

L0CATI0N=51 

ND 

L0CATI0N=21 

WP 

L0CATI0N=33 

PD 

LOCATION=13 

|M0 

L0CATI0N=15 

PU 

L0CATI0N=17 

HS 

L0CATI0N=45 

PIH 

locations 

HT 

L0CATI0N=40 

GE 

L0CATI0N=59 

PA 

L0CATI0N=78 

FU 

LOCATION=80 

LO 

L0CATI0N=63 

TS 

LOCATION=52 

PIT 

L0CATI0N=67 

TP 

L0CATI0N=65 

TL 

locations 

CM 

END OF MODEL 
PRINT 

figure 8 
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FIGURE 8.3-3 HYDRO AND THERMAL MODEL SCHEMATIC 


The input data for a two week simulation with this model is shown in Figure 

8.3- 4. CYCLES is set to 6 in this model for sufficient iterations to 

attain steady state in the hydro storage subsystem. The hydro system has 
much larger capacity and supplies a bigger load than the thermal system in 
this run. Figures 8.3-5 to 8.3-9 show results of the simulation. Hydro 
energy storage is shown in 8.3-5. During the week most of the wind energy 
goes directly to the load except at night. The reservoir builds up to 
capacity during the weekends. The cumulative percent load delivered by 
wind and hydro storage is shown in 8.3-6, and averages about 91%. Similar- 
ly, thermal energy stored and percent thermal load delivered are shown in 

8.3- 7 and 8.3-8. The ambient temperature profile for a similar, one week 
simulation is shown in 8.3-9. 
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.’AtAHCTER VALUES 

— rY rt'E STSr.-0-rrT 0“T m-rv — wr= a o avw vo vp =-rvw vtj pnsa 73 l i v e s = r 0 ot 

:: JP=isooo,:'i up=i?oo,psi?ih=?.,ec wp=.?,cr ck=i3,le cm=30 

^l PU=200tA5 HS = 36C0»J1DRHS = 80,M0 HS = 80000 ,C'1 HS=1000 

ll-HSr^OD^iUr^Sz'lOOOOOtU: -HS=30,F^--PD = .5.F3 PD=-i;5 

R A» 5E=200 * R 3 If 3 E = 560 0 »SR Gr=.0j33»CC 5E=1000»C>1 3E = 120 
v: LO = .OOft.:T LD = A,MN LO=0»ST3L3 = S»A‘J FU = -1. 

— >Sl-PtT - 2 t vT- S-"T s - 1 C> V-O—T S 1 1 0 , p D-r S - 1 0 1) -,1E • T S = 3 0 » M P M T S = 1 0 0 00. 

D^| TS=.DH65tT9ETS = 2tRS M0 = 17*30 » 3 AP10 =200 *CC M0 = 500»C*1 N0=100 
VEi TL=.023f\J: TL = 80.,CT TP = 12«MN TP = 0»ST0TP=5, 

— f-A'^ 

3tl I 3, 13*20 ,21.53»25t30 

2 5* 6 *50. 1*33. 3, 157, A *205, 1,292 .* <tOO.fi *500 *782. 8*300 

— T A 3 

3. i A. 33, ft. 37 * 1 3. , 1 7. 33, 2 1.67, 26. , 30 .33, 3A .67, 39. , A 3. 33, A7.67*52. 
35, 67, 33, 35, 31, 53, 51, A9,A9, 5 2, 53, 61, 65 

— r-A-3 LE-, — ^ 

3, V, A, 12, 13,20,2a 
10, 12,1A,13,1A,12,10 

— T-A-j fE-,-O F— V-U — 

0, I, 2, 3, A, 5, 3, 7, ft, 9, 10, 11, 12, 13, lA, 15 

5, M, 1 30, 3 3 0 . A a 0, 51 2, A A 0, 37 6, 3 0 7, 27 0, 1A8, 76, AO, 22, 9, 3 

— r A i L E -, H T"-r S = A — 
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— A 5 J - 3 fi 0 ,-3 7 2 ,- 3 3 0 ♦ A 5 0 , S 6 0 •, e 1 0 » 79 8 t3-0 A — 
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l,l ,.9,.9«.9,.3,.5 

TA)LE,Py L3=3 

-3-, I 0 -,-2-0-,-^OTMr ^3->-5-2- 
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4.,2«,1.5,1. 

r A) LE,TWTTL=4 

•~0 rS'FT3T29 ^ _______ 

* .A,1.,1.,.A 

rA)LE,?9 TP=9 

— 3'-, 5 A 6T9,-12T;r 5 , 13 , 2f7 24 

43, 45, A 3, 55, 3 2, 3A, 5 3,43, 46 
rAJLE,PY TP=5 

— O", t\'i ■,'23’,-59T3'2 

40,50,75,65,40 j 

IMITIAL COVOiriO.US, MA HS = 1600000 ,E TS=600 

— O 4 r- N TE9-PL-3 r sro r SPL AY 1 — ^ 

VV>ao,VS,TI'1E 
PI ?D,VS,ri4E 

— 4 p UtVStT-I-IE 

3I5PLAY2 
i HS,VS,TI4E 


42 H£,VS,TI4': 
sTVSTTr-rr 
3I3PLAY3 



PC TL,VS,TI4E 

“ -TA'>TP'ivrvrr4r-— 

=3 FU,VS,f3 ri 

ri\lC = »50,T4A)< = 335.*PRATE = fi,PSINT CONTROL = 3, I N'T 403E=3,OUtRATP=4 

— rtr LX --ftYOYT-AlO-THEKrTA LATEST — ' — 

SI4ULATE 

FIGURE 8.5-4 HYDRO AND THERMAL SIMULATION DATA 
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FIGURE 8.3-7 THERMAL ENERGY STORAGE 









FIGURE 8.3-8 PERCENT CUMULATIVE THERMAL LOAD DELIVERED 



8.4 PNEUMATIC STORAGE MODEL 


igure 8.4-1 shows the simplified schematic for the pneumatic storage 
model. For simplicity the motor and generator have been omitted from the 
pneumatic storage subsystem. A burner is used If needed to heat the 
exiting a, r to the turbine. Tbe heat exchanger Is a phase change medium. 
Figure 8.4-2 shows the input data for this model. 


MODEL DESCRIPTION 
L0CATI0N=1 TI 

LOCATION =21 WD 
L0CATI0N=51 WP 

LOCATION=5 TP 

LOCATION=43 PD 

LOCATION=64 UT 

L0CATI0N=15 CO 

LOCATION=17 HX 

L0CATI0N=47 CS 

LOCATION=36 PI 

LOCATION=49 HY 

LOCATION=59 BN 

LOCATION =80 TU 

L0CATI0N=76 PA 

LOCATION=72 LO 

L0CATI0N=71 CM 

END OF MODEL 

LIST STANDARD COMPONENTS 
PRINT 


PNEUMATIC STORAGE TEST CASE 

INPUTS=TI 

INPUTS=WD 

INPUTS=TI 

INPUTS=WP.WP(P=MP),PA{1,1),PI(2.2),cs(RE=RE,2) 

INPUTS=PD(SP=P) 

INPUTS=PD(2,1),TP 

INPUTS=CO,TP,CS 

INPUTS=HX,PA(RE,2=RE) 

INPUTS=CS 

INPUTS=CS,HX 

INPUTS=HY 

INPUTS=BN,TP,CS(PR=PS) 

INPUTS=TU(2,2),L0(1,0),PI(4,2),UT(2,3) 

INPUTS=TI 


FIGURE 8.4-2 PNEUMATIC STORAGE MODEL INPUT DATA 


BGS 40262-1 


425 


HhAT 

exchanger 


FIGURE 8.4-1: 


H 


pneumatic 

STORAGE 


HEAT 

EXCHANGER 


UTILITY 


PNEUMATIC STORAGE EXAMPLE 


BCS 40262-1 













The input data for a two week simulation is shown in 8.4-3. In order to 
keep the air entering the storage cavern from overheating, a fairly large 
leakage coefficient (NU = 0.01) is assumed. Hence the storage cavern loses 
a out 2/3 of Its heat energy every four days. The load constant NC LO can 
e adjusted to balance wind energy to the load so that weekly air mass flow 
and out of the cavern is balanced. The initial values for the CS and HX 
states were chosen on the basis of an earlier one week simulation. Figures 
8.4-4 to^8.4-8 show results of this simulation. Figure 8.4-4 shows the 
average emperature of the heat exchanger storage medium for the 'cool' 
cell The initial temperature at the beginning of the simulation is a 
ittle too cool since the temperature rises to about 400° during the 
weekends. Phase change in this medium is indicated by the constant tem- 
perature intervals at 250°. Figure 8.4-5 shows the air temperature exiting 
from the heat exchanger into the cavern. During the week this temperature 
IS generally held below 200° but may exceed 350° during the weekend. 
Figure 8.4-6 shows the air mass stored in the cavern. In this simulation 
wind power generation exceeded that for the load and thus there is a 
gradual buildup of air mass in the cavern. The temperature of the stored 
air mass is shown in Figure 8.4-7. There is about a 10° fluctuation in 
temperature each week in this case. The last figure. 8.4-8 shows the air 
temperature exiting from the heat exchanger to the burner. Neglecting the 
in uence of the inital conditions, the average temperature is about 550° 
and thus a burner is probably not required for this system. 
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TiTIpE* PNEUMATIC STORAGE TEST CA 8 E 2 
PARAMETER VALUES 

CyCL£S»a.01,T0 TlB0,CT TP»12#MN TP»0»3TDTP»5.DLINES*100 
V WP«ao0,WV0MP.8,WVlWP«60,CC wP.isoSo'crjpMaJS^; cc MR. 

LE CSsiO.MDECS. 10000, TEMCSB350.NU CS«,010,TM CS« 12 S BE mJI oSi ^ 
MO CO,1500,T3 BN.600.LE BN.SO, MDMBNiSOOO HX.. 0 QI 

ll ►^X«150,TMTHX.250,TEMHX.350,L MX .8 

NC TU«3600,CR CM.jS.LE CM»30,CM C 8*«00 

f'5*»00^5#CT LO*«,MN LQ.0,STDLQ.6, VE LO..023 

ut..o23,cc'u^s??;'5?,o 

8 ^ UU 1 2 L a p 1 6. J : 2 L*.» 1 . 2 6 3 o 

!e'!;^!«®!S^'^^*'^^*’^'^‘»‘‘’''26.,30,33,3a,67,39.,a5.33.a7 67, 

1 35# «7*67,52, 

TAQLc.mq WOaT 

0 , a^ 8 , ! 2 , 1 6 , 20 , 20 

10# 12, t a, 16 , la, 12, 10 

TABLE, DP ND .16 

0,3,6, 9, 12 , 15, 18,21 , 2 a 

86,05,08, 55,62,62,56,08,06 

TABLE, PY TP «5 

0.13,26,39,52 

80,50,75,65,00 

TABLE, PD L0.17 

J;^*5# J#8.5,6,7,5,9,io.5,i2 

13,5, 15, 16.5, 18, 19,5,21,22,5,20 

1.2. 3. 0. 5. 6 . 7 

1.1. . 9. .9. .9. .6. .6 
Table, PY lo*6 
0,10,20,30,00,52 

22>, 190, 180, 170, 190,226 

P«”eR PL0T8”?S?uyi“““‘’'"® “*®»ES'«lHXPIJ0O,ECeH«.»00 

M CD, v$, TIME 

T 2 CO, vs, TIME 

T 2 Hx, vs, TIME 

TaiHX.VS.TIME 

P2 UT.VS.TIME 

r ca, va.TiME ^oo;? 

MS CS.Va.TIME W/lt/ry 

T2 CS.Va.TIME 
«2 HY, VS, TIME 
T HY, VS, TIME 

^^*^*»TI^£#T 82 HX,V 8 ,TIME 

8 IMS^i^ MODC.3,OUTRATEiO 

FIGURE 8.4-3 PNEUMATIC STORAGE SIAAULATION DATA 
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FIGURE 8.4-8 HEAT EXCHANGER OUTLET TEMPERATURE (DISCHARGING) 
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9.0 SOUR PHOTOVOLTAIC EXAMPLES 


briefly bescr°b\7lTL?rsrrLTn,rtr^^^ 

In this section. their use are summarized 

! 

Table 9.0-1 sunmarizes the characteristics of the . i 

nents. The environmental data component ^s I j°'^'-Pbotovoltaic compo- 

2b U.S. locations. This colponeTt c^n 

-del generation program. Te s7 • "47 ‘o the 

Putes the sum of direct beam and olohm , PP-onent corn- 

fixed orientation and four different beam t4r ^ 

^Psing lens collector componenirprovide ttaTleT::" 
termining average solar cell temperature tu , p"p’ysps for de- 

the solar array are based on similar u" " PP”®Ptor models, and that of 
for the SOLCEL program (Reference f4l) Th ' ^^"bia Laboratories 

fled model based on scaling the char4 ® component model is a simpli- 
voitage can either be user specified al -' ^ 

It Should be observed that the above bx a maximum power tracker. 

Whereas most of the SIWEST componentsTreTd7’”'"' 
senerally not a problem since there are at molt ^”is is 

variables between the solar-photovnit • °" X a few interconnection 

SIMWEST components, and 0 4 0 ’7 »‘ber 

nents. PP"PPPted using arithmetic compo- 

The TMY data tapes are current iv thza k *. 

for Simulating typical yearly Liar ener'"""?'"*"' 

were extracted from SOLMET data taoe. Performance. These tapes 

an, wteonnloginal observation data ove.Tn^JJd"'’,,™''*'’”''’*®'' '’““''V m’an 

.'.a. bao, ,„,oa, -"r ^'r b^ s, r" 
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selection of a typical meteorological month for each calendar month In the long 
term data base and catenating the 12 months to form a TMY. All of the TMV data 
files are available for use by a SIMWEST user. He thus has access to a high 
quality environmental data base for solar energy simulations and system analy- 

S0S • 


TABLE 9.0-1 SOLAR-PHOTOVOLTAIC COMPONENTS 


COMPONENT 

SYMBOL 

PURPOSE 

ENVIRONMENTAL 
DATA (TAPE) 

ED 

READ DOE SOLAR INSOLATION AND WEATHER 
DATA TYPICAL METEOROLOGICAL YEAR TAPE 

SOLAR ORIENTATION 
(TRACKING) 

SO 

SOLAR INSOLATION ON TILTED FLAT PLATE 
ARRAY (FIVE OPTIONS) 

FLAT PLATE 
COLLECTOR 

FP 

FLAT PLATE THERMAL MODEL WITH FLUID 
AND PASSIVE COOLING OPTIONS 

FOCUSING LENS 
COLLECTOR 

FO 

FRESNEL LENS THERMAL MODEL WITH FLUID 
AND PASSIVE COOLING OPTIONS 

PHOTOVOLTAIC ARRAY 

PV 

CONVERTS SOLAR INSOLATION TO D.C. 
ELECTRICAL POWER. MAXIMUM POWER 
TRACKER OR USER SPECIFIED VOLTAGE 
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9.1 PHOTOVOLTAIC MODEL TEST CASE 


The input data for the photovoltaic model test case is shown in Figure 9.1-1. 
The purpose of this model is to obtain characteristic current voltage curves 
for the default solar array parameters. Fortran statements are used in the 
model generation data to let the terminal voltage range between 0 and 204 volts 
for solar insolation values of 5, 20, and 50 suns (1 sun = 1000 w/m^). Cell 
temperature is specified at 25°C for the first simulation and 55°C for the 
second. Figure 9.1-2 shows the current voltage curves and Figure 9.1-3 shows 
power voltage cross plots at the lower cell temperature and for the three solar 
insolation levels. These curves verify the physical characteristics of the 
solar cell model. It may be noted in these figures that current and output 
power become negative when the specified voltage exceeds the array open circuit 
voltage. Individual cell characteristics may be obtained by dividing voltage 
by 300 (default number of cells in series.! and by dividing current by 500 
(default number of cells in parallel). 

9.2 FLAT PLATE COLLECTOR MODEL 

The input data for the flat plate model test case is shown in Figure 9.2-1. The 
purpose of this model is to illustrate water and wind cooling of the collector 
and to test the tracking options of the orientation component SO. There are 
six 1-1/2 day simulation runs. The first run uses water cooling (CM0FP=2), a 
single glass cover over the front plate and insolation on the back. The second 
run uses passive cooling (CM0FP=0), no plate insolation and fins on the back to 
cool the collector. In the first two runs, the collector is tilted and has a 
fixed, southward facing orientation (MO S0=1). The last four runs are similar 
to run 2 except different tracking options are utilized. 


BCS 40262-1 


437 


roCAIION = U^'’^’TI CURRtNT V01.TA6E CURVES 

0RTRAN-STATEMENT5 — — — 

I ST PVsSOOO ” 

TI|CT#1,5)ST PVs^OOOO 

J ^"(T) Y— Tl-ji GT-t2t5 ) S T— PVb5<MH)0 — — — 

^ VT PVs8,5*TD TI 
lOCATI0Ne53 PV 

-~tND-OF-^OOet 

PRINT 


a) Model Generation Input Data 



PARAMETER VALUES 
CYCLE5=0,T0 TIsC 

DL-XNESsSO 

TC PV=25 
RC PV=i 

~^-I^T ER-PtO T S » D I SPL ay I 
V PV, VS, TIME 
X PV,V8,V PV 

— PVrVS?-V — PV 

P PV, VS, TIME 


TI;NCb,5» THAX=72,PRATEb 24, PRINT CONTROLS!. TNT MnnPa! niiTOATr.s 


parameter 

— W-PVS5! 
SIMULATE 


VALUES 



b) Simulation Program Input Data 


FIGURE 9.1-1 PV TEST CASE INPUT DATA 
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FIGURE 9.1-2 SOLAR ARRAY CHARACTERISTIC CURRENT - VOLTAGE CURVES 
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MODEL DESCRIPTION 
LOCATlONsU TI 

A--t{)C“ATT 13 NB 35 to 

LOCATIONB53 SO 

LOCATIONs5> FP 

— £NO-OF-f<OOfct — 

PRINT 


plat plate test case 


INPUT^fiTi- 


lNPUTSgS 0 »ED(XR 8 WP»X 3 BTA) 


a) Model Generation Input Data 


parameter values ~~ ' — ^ 

|-OWeJ^Io— I lii°!^: ^'''’-‘°>TFOFPF3(),MFM fPg.Oe,CMOFPBg.NC pp^,. 


-^L-SOeM-r733rM-SD.P^^ii^ f^P»10,CPOFPs.01 ,L* Sns?9,7i^ 

~ — 

— pp ,-v s E 

V *% r * »% ^ 


X2 ED»VS/TIME ~ ~ — 

PJ FP,VSrTJME 

TINCpv 5 >-TMAXb 36 ,PRATEb 6 »PR 1 WT— rnuYor^. , . 

plate COLLE^Toi Jm"c'J^^'**'-"'T-«OOEp.3,OUTRATEPl- 

P^RAME-TET?-VAL-UES- 

rLirie'b_#< _ _ 


tM0FpB0,HI PPc J tE9#FIRP ps 4 | 

SIMULATE 

•— P ARAM E-T E-R ~V AirUE S 

MO S0=2 

simulate 

—f^-n-A M E-TER-V A L-UE-S- 
Ho 30=3 

simulate 

—PA R A ME-TE R— V A IHJE 8- 
MO . 30= « 

SIMULATE • 

— T*A RA ME-TE-R— VAL-UE S- 
MO 30=5 

simulate 



b) Simulation Program Input Data 

figure 9.2-1 flat PLATE COLLECTOR MODEL INPUT DATA 
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The model schematic produced by the model generation program is shown in 
n'gure 9.2-2. The component TI is used to furnish time of day and day of year 
information to SO and to the TMY read component ED. ED supplies direct beam and 
global insolation to SO, and ambient temperature and wind speed to the collec- 
tor component FP. Based on collector orientation, SO supplies solar insolation 
incident to the array, collector tilt angle, and tracking power to FP. 

Typical results of the flat plate model runs are shown in Figures 9.2-3 through 
9.2-5. Figure 9.2-3 shows the global horizontal insolation obtained from ED 
during the 36 hour simulation period. The data was for mid-winter and the 
daily peak levels are thus low to moderate. The array tilt angle daily pattern 
for horizontal E-W axis tracking is shown in Figure 9.2-4. At noon the array 
IS oriented normal to the sun's incident rays and thus maximizes the insolation 
gathered during the mid-day peak. The tilt angle approaches 90° as the sun 
approaches the horizon, and remains fixed at 90° overnight. Comparison of the 
solar insolation peaks with the various tracking options showed that horizon- 
tal E-W axis tracking gave the best results of the single axis tracking sys- 
tems, and was only slightly inferior to two-axis beam tracking. Solar cell 
temperature for this case is shown in Figure 9.2-5. The cell temperature is 
within a few degrees of ambient most of the day and rises in mid-day propor- 
tional to the solar insolation received. The results with water cooling are 
quite similar. 

9.3 FRESNEL LENS COLLECTOR MODEL AND INCREMENTAL COSTS 

The input data for the Fresnel Lens test case is shown in Figure 9.3-1. The 
purpose of this model is to illustrate a Fresnel Lens collector model with 
thermal fluid loops for collector cooling and for solar heating. Three week- 
long simulations are used to demonstrate incremental cost calculations for 
subsystem economic design. A variable speed pump is assumed for the collector 
fluid loop with the flow rate adjusted so that the outlet temperature is 5°c 
greater than the inlet. The collector consists of a rectangular grid of 120 
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TILT ANGLE VERSUS TIME FOR HORIZONTAL E-W AXIS TRACKING 


FIGURE 9.2-4 
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FIGURE 9.2-5 SOLAR CELL TEMPERATURE VERSUS TIME 
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MODEL DESCRIPTION 
LOCATION=11 TI 

L0CATI0N=71 ED 

LOCATION=‘^5 MA 

FORTRAN STATEMENTS 
TFOFO = FO MA 
L0;CATI0N=33 FO 

L0CATI0N=73 PV 

LOCATION=47 TS 

LOCATION=27 TL 

L0CATI0N=77 LO 

LOCATION=79 CM 

END OF MODEL 
PRINT 

a) Model Generation Input Data 


TITLE=FRESNEL LENS COLLECTOR (INCREMENTAL COST COMPUTATION) } 

PARAMETER VALUES | 

CYCLES=4.01,T0 T 1=0 t CM0F0=2, CW FO=3.75,CL F0=3.9, 0LINES=50 ! 

Nil FO=120,NT F0 = 24#MFMF0 = 0.5fCC F0=6.,CM FO=50tHI FO=.01tRC F0=.0S 

TS TS=5,DH TS=.00879fPD TS=12fLE TS=30,NU TS=-01tNC TL=0.2 

Ci MA=.55556tC2 MA=-17.7778f COPFO=0-5 

CC PV=100,CH PV=50fLE TS=30,CR CH=15fLE CM=20 

AA PV=0,6fNS PV=600fNP P V=5* RAPPV=l-3 

VE LO=.05tVE TL=,05 

TABLE*HT TS=4 

. d OS 79,. 0 25491,. 04737 1». 064072 

90,147,147,204 

table, TL0TL=4 

-10,0,10,25 

4^2,1. 5,1 

table, TWTTL=4 

O , 6 , 18,24 

.4, 1,1,. 4 

PRINTER PLOTS, DISPLAYl 

RE TL, VS, TIME 

E TS, VS, TIME 

PI FO, VS, TIME 

FHOFO,VS,TIME 

DISPLAY2 

TC FO, VS, TIME 

P. | PV, VS, TIME 
Fp HA, VS, TIME 

INITIAL CONDITIONS=E TS=30 

T1|nC = .5,TMAX=168,PRATE=I2,PRINT C0NTR0L=3, IN f M0DE=3, OUTRATE=l 
SIIMULATE 

PA|raHETER values, TS TS=5.5 

SIMULATE 

PARAMETER VALUES 

TS TS=5.,NL F0=126,CW F0=3.94,AA PV=0.63,NS PV=630 

SIMULATE i 

I 

b) Simulation Program Input Data i 

I 

f 

FIGURE 9.3-1 FRESNEL LENS MODEL INPUT DATA i 


FRESNEL LENS COLLECTOR WITH THERMAL STORAGE AND LOAD 

INPUTS=TI 

INPUTS=TS(T=FIN) 


■*•5. 


INPUTS=ED(X1=ST,X3=TA,X4=WD) ,HA(FO=TFI) 
INPUTS=ED(X1=ST) ,FO 
INPUTS=FO(P,l=P) ,TL 
INPUTS=TI,ED(X3=TA) 
INPUTS=PV(P=P,l,P=LO,l) 
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Fresnel lenses each of which focuses solar radiation on a 5 x 5 array of solar 
cells. Excess thermal energy Is conducted to a heat sink surface and then 
dissipated by natural convection, radiation and heat exchange to the coolant 
fluid 7he collector parameters are chosen for a lens concentration ratio of 
series connection of the output from each array. At maximum output the 
array collects about lOkw of solar radiation and produces about 1.7kw of 
electrical power. The user should be especially careful In specifying the 
input parameters to the collector and array components FO and P» since 
inadvertent parameter errors can lead to physically Inconsistent con’figura- 
tions, e.g., collector area smaller than the total lens area. 

The model schematic produced by the model generation program Is shown In Figure 

rnlif't connections between the 

collector FO the thermal storage TS and the multiply and add component MA. The 

A component is used to convert the thermal storage outlet temperature from 

degrees fahrenheit to degrees centigrade. The output temperature from MA is 

supplied as the inlet temperature to FO. The total thermal power gathered by 

load fluid loop IS represented by a power request from the load component TL to 

TS and by thermal power delivered from TS to TL. The electrical output of the 

array Is computed by PV and supplied to a load component LO which monitors the 
electrical energy collected. 

Results of the first week simulation run are summarized In Figures 9 3-3 
rough 9.3-6. The weather was fairly constant during this run and solar 

001 n "iw " that with water 

r V msolatlon. In 

coo?’ t fT-! ! ^t'-ay is exchanged to the 

coolant fluid during peak Insolation. The electrical output of the array is 

? nLed'T-r-t'’'’'’ t---' --9V 

ected exhibit very similar daily patterns. The thermal load for this week 
IS shown in Figure 9.3-5. This load Is dependent on both time of day and 
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FIGURE 9.3-2 FRESNEL LENS MODEL SCHEMATIC 
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FIGURE 9.3-4 PHOTOVOLTAIC ARRAY OUTPUT FOR ONE WEEK SIMULATION 
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FIGURE 9.3-6 THERMAL STORAGE TEMPERATURE FOR ONE WEEK SIMULATION 


ambient temperature which yields the complex load pattern shown. Figure 9.3-6 
shows the temperature of the thermal storage vessel resulting from the collec- 
tor and load thermal loops. The daily cycles are predominant with the periods 
of strong insolation providing sufficient energy to satisfy the load and com- 
pensate for thermal losses. Average load is fairly well matched to solar 
generation during the week since the temperature remains within a 15° channel 
and does not have an apparent trend away from this range. 

One of the most important measures of performance for a solar energy system is 
the levelized cost of energy, i.e., the life cycle cost to produce one unit of 
usable energy including generation, storage, transmission and conversion sub- 
systems. Energy cost may be used to size components and select most promising 
system alternatives, i.e., minimum energy cost is used as a selection or 
optimization principle. Although SIMWEST does not provide user optimization 
capability, optimal sizing of a few key parameters, such as the ratio of solar 
to utility generation and the size of storage relative to generation, is 
possible and may be accomplished quickly using the concept of incremental 
energy cost. The idea is to compute the incremental change in levelized energy 
cost per incremental change in capital cost, for the system parameters of 
interest, Given an initial system configuration and M sizing parameters to be 
selected, optimization proceeds as follows: 

1) Perform M+1 back to back simulations to compute the cost and energy perfor- 
mance of the baseline configuration and M incremental configurations from 
the baseline. 

2) Calculate the incremental energy costs for each parameter variation. Then 
select a new baseline configuration. Since the incremental costs are equal 
at the minimum cost point, increase or decrease the sizing parameters so as 
to equalize the new baseline incremental costs. 

3) Go to 1) and continue adjusting subsystem parameters until either a perfor- 
mance limit is reached or until the incremental costs of the 
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remaining parameters are equalized. (,f two incremental costs are un- 
equal, one can always lower the system energy cost by increasino the 

Iu“bsSeI.r‘*' of ‘"u other 

This procedure is recomnended ,s more efficient and economical than using a 
es 0 parametric trade studies for subsystem optimization. 

Tbe process of computing incremental costs is illustrated for the Fresnel Lens 
clputed " T ‘''0 baseline system performance and costs are 

t n ttat the Tr"''!,' ^'’O”' *^0 

ed bv L T 0 r array area have been in- 
results for th su-arizes the incremental cost and simulation 

resu ts for these runs. Column 1 shows the initial capital cost of the 

base ine system and the incremental capital costs for the thermal storage and 
ray increases. (These costs are meant to be illustrative rather than 

inT;::::*:; ^ ^ -t 

e a he rb • r und operating costs, 

e-g., the change in thermal storage increases costs by $9.10 per year. Column 
3 shows thfi enGrqy dGlivGrGd to thp inaric -i 

WGGk simul.tTonc 7^ /1. estimated from the one 

coolant t • ( 0 e. he change in storage capacity lowers the average 

coolant temperature, thus increasing output power.) Column 4 shows the level- 

generat?ln^ T' ‘’V"" Cerements in storage an(i 

sued relative to generation since a fixed $ increase in storage will lower the 

t7Tc3 T = ^'’0- 

moot Th- ®"6fgy cost given a 1* increase in capital invest- 

ment This column contains the same basic information as column 4 but provides 

a^bener quantitative measure of the economic value of increased storage c^L 
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TABLE 9.3-1 INCREMENTAL COST CALCULATIONS 



LC = Level i zed Total Cost/Yr. in $ 

= Capital Cost*Life Cycle*Charge Rate 
+ Maintenance Cost + Operating Cost 


ED = Useful Energy Deli vered/Yr. in KWH 
= Electrical Load + Thermal Load + Net 
Change in Thermal Storage 


EC = Level i zed Energy Cost in (f/KWH 
= LC*100/ED 


NIC = Normalized Incremental Costs 

= % Change in EC Per % Change in CC 
= (ALC/LC - AED/ED)/(ACC/CC) 
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APPENDIX: UTILITY SUBROUTINES 


I 

This section provides a short description and source code for the utility 
subroutines called by the SIMWEST library components. These routines are 
also available to the user and may be called by FORTRAN statements in the 
user's manual. (See also page 26 of section 2.1.2 on the use of sub- 
routines TBLUl and TBLU2.) 

•I FUNCTION AINR 

AINR computes the current of a photovoltaic cell given light current AIL, 
cell voltage V, and temperature T. Newton-Raphson iterations are used to 
solve the implicit equation (1) for current I: 

I = AIL + BIO (1. - EXP((V+I*RS)*QBK/(T+273))) (1) 

• SUBROUTINE CNVC 

' CNVC computes the convection coefficient HC and Reynolds number RE for air 

blown over a flat plate (ref. 1). 

Inputs: T^ = air temperature in °K 

Tp = plate temperature in °K 
CL = length of plate in m 
V - velocity of air in m/s 

Equations: 

= (T^ + Tp)/2 

VI = 9.0 X 10‘®*T^ -1.115 X 10"^ 

GR = 1.386 X 10^ - 2.91*Tj^ 

CO = 7.25 X 10‘^n,^^ + 4.325 x 10”^ 

RE = V*CL/VI 


(mean temp.) 

(viscosity) 

(Grashof's no.) 
(conductivity) 

( 2 ) 
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HpREE=-ll6*C0*6R*lT^-Tp|-333 £ 

= RE<5 X 10^ 

V032*C0*(RE*® - 23000)/CL otherwise 

" ”fREE ^WIND 

§ SUBROUTINE CUBIC 

CUBIC finds the roots of the cubic equation 

+ AAx + BB = 0 (4) 

and selects the real root x with largest value. 

• SUBROUTINE FLUC 

FLUC computes the heat transfer coefficient HF from a collector plate into 
a fluid coolant. The empirical equations used are for water cooling 
(ref. 1). 

i 

Inputs: NT = number of cooling tubes 

dT = diameter of cooling tubes in m 
Ct^ = collector width in m 

I 

COP = conductivity of mounting plate in w/m-K 

j 

THP = mounting plate thickness in m 

j 

FMD = coolant mass flow rate in kg/s 

■ ! o 

DEN = coolant density in kg/m 
TF = mean coolant temperature in K 
COC = coolant conductivity in w/m-K 
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Equations: 



NTl = NT/CW 

HFl = 12 *NTi 2*COP*THP (conduction coeff.) 

VI = (21.7*(TF - 256)"°-® - .185) x 10“® 

(fluid viscosity) 

PR = (,00518*TF - 1.25)**(-1.49) (Prandtl no.) 

RE = 4.*FMD/(7t*DT*NT*DEN*VI) (Reynolds no.) (5) 

If RE < 2100, 

HF2 = 4.36*C0C*7t*NT1 

If RE > 10000 

HF2 = .023*C0C*RE-®*PR*®®®*7r*NTl 
If 2100 < RE < 10000 

X2 = 36.5*PR-®® 

02 = .0029*PR*®® 

A = (4.36-X2)*1.6 X 10“® + 02*1.266 x 10’^ 

B = 02 - A*2.xl0^ 

C = X2 + A*10® - 02*10^ 

HF2 = (A*RE^+B*RE+C)*COC*n-*NTl 

HF = (1/HFl + 1/HF2)‘^ (6) 

• FUNCTION HTGLAS 

HTGLAS computes the top surface heat loss coefficient for a collector 
with 1 to 3 glass covers (ref. 2). 

Inputs: li = number of glass covers (1,2,3) 

= ambient temperature in ®K 

Tq s mean cell temperature in °K 

Hq = convection coefficient for air blowing over a 
heated flat plate in w/m^-k 

e ,e = emittance of cell and glass covers 
^ y 

TLT = collector tilt from horizontal in degrees 
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Equations: 


Ht = (N(Tj,/C)/((Tj.-T^)/(N+f))°-^^ + 

+ O (tI+T^) ( VT. )/(A+(2N+f-l)/e -N) (7) 

with ff - 5.688 x 10"® w/m^-K^ 

C =365.9 (l.-.00883*TLT+.0001298*TLT^) 
f = (l.-.04*Hj.+.0005*H^)(l.+.091*N) 

A = l/(e^.+ .05*N(l-ej.)) 

I 

• SUBROUTINE IMPLIC 

IMPLIC controls the iteration logic which detennines convergence of im- 
plicit variables in the user's system model, and prints convergence diag- 
nostics. (See section 3.6 for a discussion of the iteration and diagnostic 
control logic.) 

^ SUBROUTINE RADC 

RADC computes the infrared radiation coefficient HR between two bodies 
with surface temperatures and T 2 . (See section 7.4 of Ouffie and 
feeckman, ref. 3.) 

Inputs: ^1*^2 “ surface temperatures in ®K 

®1*®2 “ emittances for surfaces corresponding to ^ 1*^2 

= 5.688 X 10'® (T^+T|)(Tj+T2)/(ej^ + e^^ -1) (8) 

• FUNCTIONS TBLUl, TBLU2 

TBLUl and TBLU2 perform one- and two-dimension linear interpolation. A 
binary search is used to locate the nearest grid points for unequally 
spaced data. See section 2.1.2 for subroutine usage within model genera- 
tion FORTRAN statements. 
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• SUBROUTINE UNIF 

OnIF generates uniformly distributed, pseudo-random number sequences in 
the range [0,1], This routine may be used to obtain random number 
sequences with a specified distribution function. (See for example the 
coding for WD in section 7.47.) 

REFERENCES 

1. F. Kreith, Principles of Heat Transfer , 3rd Edition, International 
Textbook Co., 1973. 

2. S. A. Klein, M. S. Thesis, "The effects of Thermal Capacitance Upon 
the Performance of Flat Plate Solar Collectors", University of 
Wisconsin, 1973. 

3. J. A. Duffie and W. A. Beckman, Solar Energy Thermal Processes. Wilev. 

1974. 
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CAINR 

FUNCTION AINRCA1L«BI0»QBK»V»RS»T} 

liEWTOJ*-RALPHSOJt TO COMPUTE PHOIO-VOLTAIC CELL CURRENT 

F ( A ) =A-A 1 L-4 1 ( i . -EXP ( Q BK« ( A4CRS I / ( T'i'ZTa n ) 

FPC A )=1 . +BIO»EXP CQBK* ( V<*-A«=RS 1/ C T+2731 ) ♦QBK»RS/( T-^273 1 
A=0. 

DO 1 J^ltlO 
ANcW=A-FCAl/FP|Al 
IF((ANEW-A).LE. .00001) GO TO 2 

1 A^ANEW 

2 AINR=ANEW 
RETURN 

END 
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CNVC 

SUBROUTINE CNVC IHC tRE, TP ,TA, Vt CL ) 


COMPUTES CONVECTION COEFFICIENT HC AND REYNOLDS 
NUMBER RE FOR AIR BLOWING OVER A FLAT PLATE. 
CALLED BY COMPONENT FO. 

INPUTS TA -AIR TEMPERA TURE.R 

TP -PLATE T01PERATURE,K 
V -VELOCITY OF AIR,M/S 
CL -LENGTH OF PLATEfM 


TM=(TA+TPI*.5 
VI=9.E-8*TM-1.115E-5 
GR= 1 386 .-2. 9 1*TM 
C0=7 .25£-5*TM+4. 325E-3 


RE=V*CL/VI 

HFREE=. 1 16*C0*GR* C ( ABS ( TA-TP ) ) ♦« ( .333 )) 
HHIND=.597*C0*SQRT(RE»/CL 

IF(RE.GT.5^E5)HWlND=.032*C0»(RE4c«( .8 1-23000. )/CL 

HC^HFREE-I^HWIND 

RETURN 

END 
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CUBIC 


c; 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


SUBROUTINE CUBIC (AA,BB,ANS) 
TER=AA*#3/27. 

TERN=BB**2/4. HhJER 

IF(ABSC TERM). GT.. 0001 IGO TO 10 


AB=2.*CBRTI-BB/2.» — **......w«»**** 

ABB=-AB/2. 

««a*?o*^tv“o”**“********“*”***********'^**««*««***** 

^i^^i^^inni^n**”******”*******”**************************** 

RETURN 

10 IF(TERM.LT.O.)GO TO 20 

ROOTt TWO CONJUGATE IMAGINARY ROOTS 


STERM=SQRTCTERM) 

AAA=C&RT ( --BB/2. +STERM ) 

B3a=CBRT (-BB/2.-STERM) 

SELECT REAL ROOT ^***********^********************************** 

2Js*MnBM**********************************************«***»«* 

RETURN 

™REnE:n":Eou:r"ss;r***”**”****”**********«***^ 

20 S^lR*SQRn“en************************************”****««*‘*« 

THETA=AC0S(-BB/2./STER) 

TE=2 -*SQRT( -AA/3 . I 
TH£TA3=THETA/3. 

X1=TE*C0SCTHETA3) 

X2=T£*C0S I THETA3+2 . 09439 ) 

X3=TE*C0S I THETA3+4. 188 79 ) 



ANS^ANAX1(X1»X2,X3) 

RETURN 

END 


« «c4c 4c j|i ^4c3|M^ 4oOc 4c« *4c 4c4i ^ 


JF POOR QUALITY 
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CFLUC 


SUBROUTINE FLUCCHFtRE,NTtDTtCWffCOS,THS,FMDf DEN#TFtCOC> 

COMPUTES HEAT TRANSFER COEFFICIENT HF TO FLUID 
AND REYNOLDS NUMBER. 

CALLED BY C0MPUr4ENT FO 
INPUTS NT -^NUMBER OF COOLING TUBES 

DT -DIAMETER OF COOLING TUBES 
CW -COLLECTOR WIDTHfH 

COS -CONDUCTIVITY OF MOUNTING PLATE »W/N-K 
THS -MOUNTING PLATE THICKNESS »M 
FMD -COOLANT HASS FLOW RATE t KG/S 
DEN -COOLANT OENSlTYyKG/MB 
TF -MEAN COOLANT TBIPERATURE.K 
COC -COOLANT CONDUCTIVITY, W/H-K 

REAL NT,NT1 

WRITE(6,I08 ) FMD, DEN, TF, COC 
108 F0RMAT|1H0,5X,^FLUC INPUTS ♦•4F10.2) 

PR=( .00518*TF-I.25)*4^(-1.49) 

NT1=NT/CW 

HF1=12.»NTI*NTI*C0S»THS 
VI=( 21.7+ITF-256. )-.I85)*l.E-6 
RE=4-*FMD/( 3.1416*0T^NT*DEN*VII 
IFIRE. GT.210C.)G0 TO I 
HF2=4.36*C0C*3. 14I64^NT1 
GO TO 5 

1 IF(RE.GT. 10000. )G0 TO 2 
X2=36.5*(PR**C.33) ) 

D2=.0029*(PR*^( .33) ) 

As(4.36-X2)*1.6E-8+D2*1.266E-4 
B=D2-A42.E4 
C=X2 *A* 1 . E8-D2*l . E4 
HF2= CA*R£*RE+B*Rt+C)*C0C*3.14l6*NTl 
GO TO 5 

2 CONTINUE 

HF2=-023«C0C*CRE**| .8 ) ) ♦(PR«*( .333) ) ♦B. I4I6%NTI 
5 CONT INUE 

HF=1./ C1./HFI+I./HF2) 

C WRITEC6,109)HF,RE 

C 109 FORMATC IH0,5X,4^FLUC OUTPUTS *,2F10.2) 

RETURN 

END 
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CHTGLAS 

FUNCTION HTGLAS(NGtTAtlCffHCltECtEGfrLT) 

^ I 

^ TOP HEAT LOSS COEFFICIENT HT FOR GLAS COVERS t CALLED BY FP 

t 

C INPUTS 

G NG=NUMBfcR OF GLASS COVERS Clt2t3) 

C TA-ANBIENT TEMPERATUREtK 

e TC==HEAN CELL TEMPERATUREtK 

5 HC1=^C0NVECT ION COEFFICIENT FOR AIR BLOWING OVER 

C A HEATED FLAT PLATE* W/M2-K 

C ECtEG^ENlTTANCE OF CELL AND GLASS COVERS 

C TLTsCOLLECTOR TILT FROM HORIZONTAL IN DEGREES 


REAL NG 

$lGMA=3.68dE~8 

Cj=365-9^C1.~.00883«TLT+.0001298^ TLT*TLTI 
F= 1 1 04*HC 1+ .0005*HC 1*HC1I ♦ ( 1. 091*NG I 

4=1 • /( EC-^. 05>»N&«( I .-EC I ) 

^NG’i^CTC/O/l ((TC-TA>/(NG<i-F) )*4c0.33l i l./HCl 

B=SIGMA*(TC’^TC*TA*TA)*(TC+TA)/IA+C2.*NG+F-1.I/EG-NG) 

HTGLAS=1 ./G+B 

RETURN 

END 
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CIMPLIC 

SUBROUTINE IMPLIC (CYCLES tDLINES) 

COMMON/C IMP L/INPLtICNT /CORDER/ NQXtNOV /COLD/VOLD 
COMMON /CV/ V /CNAMEV/ NAMEV /CTIME/ TIME 
DIMENSION Vm*NANEVU)fVOLD(U 
C «««!»*♦ UNI VAC VERSION CODE ONLY 

C IFICYCLES.LE.O.) GO TO 40 

IF(IMPL.GT.O)GO TO 10 
SP=0 

TTPR vri 

ITERS= MAXOC lfMIN0(ITERS»20)l 
ILINES^ ABSiOLINESl 
1TN0= 0 
IMPL=1 

00 5 I^IfNOV 
5 VOLO(I) = 0. 

10 CONTINUE 

Q COC VERSION CODE ONLY 

IFCCYCLES.GE.l. ) GO TO 15 
1MPL=2 

IF(ICNT.GE.ILINES) IMPL=3 
RETURN 

15 IFCiMPL.GT.l) GO TO 20 
ITNO= ITNO+1 

IFUTNO.GE. ITERS) IMPL=2 
ICON=I 

00 30 I=ItNOV 

IF(ABS(V(I) ).LT. l.E-6) GO TO 30 

IF( ABS(VOLD( I)-V(I) ) .GT. 0.03«ABS( VI I ) ) )IC0N-0 
VOLOm= VII) 

30 CONTINUE 

IF(ICON.EQ.I) IMPL-2 

IF11MPL.EQ.2 .AND. ICNT.GE.ILINESI IMPL-3 
RETURN 


20 ITN0=0 

IF(IMPL.GT.2) GO TO 40 
IF(ICON.EQ.I) GO TO 40 
IFIOLINES.LT.O.) GO TO 40 
ICK=0 

00 5 0 I=1|N0V 

IFC ABSlVU)).LT.1.0E->6) GO TO 50 

IF! ABSI VOLDII)-V(I) ) ^LT. 0.05*ABS( VI I ) ) )G0 TO 50 
IF(ICK.EQ.O) WRITE (6*100) TIME 
100 FORMAT! IHO, 10X*5HTIME=*F9.2 ) 

URITE(6«200) NANEV(I)«V0L0I1)*V(I) 

200 FORMATdH flOX»A6*28H NGN CONVERGENCE. OLD VALUE=»FI2.3 
1 13H NEW VALUE=*F12.3) 

1CK=1 

50 CONTINUE 

IFIICK.EQ.I) ICNT=ICNT+1 
40 IMPL=4 
RETURN 
END 
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CRAOC 

SUBROUTlhE RADC(HR,TItT2fEl»E2l 

COMPUTES INFRARED RADIATION COEFFICIENT HR 
CALLED BY COMPONENT FO 
INPUTS Tl,T2 -SURFACE TEMPERATURES 

EI»E2 -CORRESPONDING SURFACE EMITTANCES 

HR=5.688E-8*CT1*T1*T2*T2I*CT1+T2)/I1./E1+1./E2-1.I 
RETURN 
END 
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CTBLUl 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


fumction TBLU11X,XT,FT,NDX,NX) 

PURPOSE ONE DIMENSION LINEAR INTERPOLATION 
CALL SEQUENCE 

XT ~ ^'^OEPENDENT VARIABLE 

CT length ABSfNXI CONTAINING X VAiiiPC 

Nox: ™ 

It XT CONTAINS EQUAL SPAFFn hata 

NX - ABSCNXI UNEQUAL SPACED DATA 


WRITTEN BY A^W.WARREN 

DIMENSION XTfD.FTCl) 
NA=IABS(NX) 

ifina.gt.dgo to 5 

TBLUl^FT (II 
RETURN 

5 IF(NDX.NE.O) go to 100 


VERSION It APRIL 197T 


EQUI-SPACEO TABLE INTERPOLATION 


C 

C 

C 


X0= XT(1) 

H= XTC2)-^XT(1) 

Xl= (X-XOI/H +1. 

I=XI 

IFCI.GT.OI GO TO 10 
TBLU1= FTU) 

* ‘Xl-1.)*|FTI2)-Fm)) 

10 IF(I.LT.NA) go to 20 
TBLU1=FT(NAI 

J6II3ri;®"'°’ ^ '«-NAI*(FTINAI-FTINA-U. 

Jetuw * ‘«-‘'*'PTII+1I-FTIU) 


unequal spaced table INTERPOLATim 


100 IFIX.GE.XTID) GO TO 30 
TBLUI=FT(I) 

IF(NX«GE»0) TBLU1= Fill I 4 - f v vt« i 

return *^”'XT(1))*(FT(2)-FT|1)>/(XT(2)-XT( 1) ) 

30 IFiX.LT.XKNAl) 60 TO AO 
TBLU1= FT(NA) 

^IF(NX.GE.0I_TBLUI=FT(NA|.(X-XT(NA)I*<FT(NA»-FT(NA-1M/,XT«NA) 

RETURN 
40 1=1 

IGE= NA 

50 II=(lGE+i)/2 

IFTX.LT.XTdII) 60 TO 60 
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1= II 
GO TO 70 
60 IGE= II 

70 IFII^I.LT.IGE) go to 50 

RETUW * <FT(I*1|-FT(IJ)*IX - XT( II)/(XT( 1*1 l-XTII 1 1 

END 
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CTBLU2 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


function TBLU2(X.Y,XT,YT,FT,IX,iy.NX,NY.MX,HY) 

PURPOSE TWO DIMENSION LINEAR INTERPOLATION 
METHOD 


CALL sequence 


SEARCH TO FIND NEAREST GRID POINTS 
TBLUI USED TO REDUCE THE lNTE4?or?J7JJ-oiHEHSIOH. 


WRITTEN BY A.W. WARREN 


WHICH INTfcRPOLATION IS DESIRED 

CORRESPONDS TO XT(I),YTCj) FT(I.J) 

IXfIY- INDICATORS FOR GRID SPACING 

IF IX=0 THEN XT CONTAINS EQUAL SPACED VAl IIPS 

HX.NT- *BS,HX, 

i ; ■ oF" -t^HCE 

HX.HV- 


VERSION I, JUNE 1977 


C 

C 


C 

C 

C 


DIMENSION XT(1),YT(1),FTC1) 

NA = lABS(NX) 

MX = NA 
NB = lABS(NY) 

MY = NB 

IFCNA.GT.DGO TO 10 
TBLU2 = TBLU1IY,YT,FT,IY,NY) 

RETURN 

10 IFCNB.GT.DGO TO 20 

return" ’^“‘-‘^“’‘•xt.ft.ix.nxi 

y OUTSIDE YT TABLE RANGE 

20 IFI Y.GT. YTC1))G0 TO 100 
E = (Y-YT(1))/(YT(2|~ YTCll) 

tol'uz 

TaLUl(X.XT.FT(NA*l).IX,NX) -FED 

100 IFC Y.LT. YTCNBDGD TO 200 

E = (YTCNB)-Y)/(YT(N8)-YT(NB~1|) 

NBl = NA*CNB-l)+l 
TBLU2 

^F C N Y.GT .0 ) TB LU2 — FFl'*" E^ITRi iit iv vt trTf.ani 

RETURN * »X»XT,FT(NB1-NA) ,IXfNX) -FFl) 


200 IFC I Y.NE.O)GO TO 240 

I = <Y - YTC1))/CYTC2)-YTCII) ♦ 1. 

GO TO 300 


YT GRID SEARCH AND INTERPOLATION 


BCS 40262-1 


471 


240 1=1 

IGE = NB 

250 II = CIGE+D/2 

1F(Y.LT. YTdIllGO TO 260 
1= II 

GO TO 270 
260 IGE = II 

270 IFfl+l ,LT. IGE)GO TO 250 

300 E = (Y-YTIII)/|YT(I+1|-YTCI)) 

11= N\*(l-U + 1 

FFl = TBLUUX.XT.FTdU.IX.NX) 

RETOw' * e*'TBLUlCX,XT,FTCIl«f(*l,IX,NXI -FFU 
B^O 
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SUBROUTINE UN1F(U«IX) 

COMMON /CIMPL/ IKPL,ICNTf ITEST 
DATA Y/253967./ 

IFCIMPL.EQ.O .AND. ITEST. EQ.l) IX-43I469 
IF CIX.EQ.il IX == 431469 
X= AMODC 1X«Y, 16777216. I 
U= X/16777215. 

IX =X 

RETURN 

END 
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